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EINFUHRUNG 

Im Jahr 1950 fertigte das National Physical Laboratory in GroBbritan- 
nien den 'Pilot ACE' (Automatic Computing Engine), einen der ersten 
britischen Computer. Dieser erste ACE hatte eine Speicherkapazitat von 
1,5 KByte und benotigte 32 Mikrosekunden, um die einfachste Operation 
zu bewaltigen. 

Mit einer Unmenge von Kabeln und quecksilberbedampften Rohren 
brauchte er fast den Platz einer mittleren Kuche. Heute kann er im 
wissenschaftlichen Museum von South Kensington besichtigt werden. 

Aufbauend auf dem Pilot ACE entwickelte English Electric den DEUCE 
(Digital Electronic Universal Computing Engine). Innerhalb von 6 Jah- 
ren wurden davon ca. 40 Stuck verkauft, zu einem Stuckpreis von 
£ 30-40.000 



Im Jahr 1982 hat Jupiter Cantab Ltd. seinen eigenen ACE entwickelt. 

Er kann schon in der Basisversion 3 KBytes Information speichern, 
kann um bis zu 48 KBytes erweitert werden und besitzt einen ROM-Pro- 
grammspeicher von 8 KBytes; der Z80A M i kroprozessor fuhrt eine ein- 
fache Operation in ca . 1 Mikrosekunde aus, und er ist aulierdem so 
handlich, daR Sie ihn in jeder Tasche unterbringen kbnnen . 
Und sein Preis? - Vergleichen Sie mit dem obigen Preis! 

Dies ist, neben viel Kreativitat der Entwick I ungsingen ieure des Jupiter 
ACE, einer drei 13 i gjahr i gen Entwicklung in der Elektronik zu verdanken, 
die iiber gedruckte Schaltungen und Transistoren zum Mikrochip fuhrte, 
und es moglich macht, heute Computer fur Jedermann zu produzieren, 
wie Ihren Jupiter ACE, zu dessen Erwerb wir Sie beg I uck wunschen . 



D KAPITR 1 

AUFSTELLUNG IHRES JUPITER ACE 

Zur Anschaffung Ihres neuen Jupiter ACE durfen w i r Sie begluckwunschen 
und die Hoffnung aussprechen, daft Sie viel Spafi mit Ihrem neuen Com- 
puter haben werden . 

Zusammen mit dem Jupiter ACE erhielten Sie folgendes Zubehor : 

1 . Dieses Handbuch 

2. Ein Netzgerat, das die 220 V Netzspannung auf 9 V transformiert 

3. Ein Verbindungskabel zum Fernsehgerat (das langere der beiden Kabel 
mit je ei nem Stecker an beiden Enden) 

4. Ein Verbindungskabel zum Kassettenrecorder (ein Doppelkabel mit je 
einem grauen und schwarzen Stecker an beiden Enden) 

5. Eine Demonstrat ionskassette . 

Fur den Betrieb Ihres ACE benotigen Sie nichts weiter als eine Steckdose 
(mit 220 V AnschluR), sowie ein Fernsehgerat. Spater werden Sie noch 
einen Kassettenrecorder brauchen, der Anschlusse fur- ein Mikrophon und 
einen Kopfhorer besitzt. Fur den Anfang geht es aber auch ohne diesen. 

Zuerst schl iefien Sie bitte das Netzgerat an die Steckdose an . Der k I eine 
Stecker am anderen Ende des Netzgerates kommt in die Buchse POWER an 
der linken Seite des Computers (schauen Sie bitte auch auf die Unterseite 
des Computers, wo alle Anschlusse markiert sind). 

Dami t ist der Jupi ter ACE angesch lossen und in Betrieb. Nur, ohne Fern- 
sehgerat sehen Sie natCirlich nichts davon. An der Ruckseite Ihres Fern- 
sehgerates befindet sich der Anschluft fur die Fernsehantenne. Dort hinein 
kommt das eine Ende des Verbi ndungskabels (s.Pkt.3). Das andert- Ende 
kommt in den TV-AnschluB des Computers (die groBere der drei Buchsen 
auf der rechten Seite). 

Schalten Sie nun Ihr Fernsehgerat ein, drehen Sie den Ton ab und 
stellen auf UHF Kanal 36 ein. Besi tzen Sie ein Gerat mit St a t i on st as ten 
zur Senderwahl, suchen Sie sich eine aus, schalten auf UHF und drehen 
solange, bis Sie auf dem Bildschirm ein einheitlich graues Bild haben, 
mit einem kleinen weiften Viercck unten links - damit ist Ihr ACE fertig 
angeschlossen, betriebsberei t und mit Ihrem Fernsehgerat in richtigem 
Kontakt. ( Der Anschluft des Kassettenrecorders wird in Kapitel 3 bespro- 
chen . ) 



Power 



UHF Antennen-AnschluR 




!hr Jupiter ACE arbeitet mit der Programmiersprache FORTH. Diese 
Sprache wurde 1970 von Charles Moore entwickelt und von ihm 
zunachst zur Steuerung des groRen Radioteleskops am Kitt Peak 
Observatorium verwendet . 

Wir haben FORTH fur den Jupiter ACE gewahlt 

- weil es eine sehr schnelle Programmiersprache ist 

- weil es sehr wen ig Speicherplatz benotigt und Ihnen damit mehr Platz 
als andere Programmiersprachen fur Ihre Programme zur Verfugung 
stel It 

- wegen der besonderen Struktur der Sprache, die es wie kaum eine 
andere ermoglicht, auch komp I iz iertere Programme schrittweise aus 
kleinen, einfachen Programmen aufzubauen. 

Falls Sie FORTH bereits beherrschen, werden Sie dieses Handbuch 
haup tsachl ich zum Nachschlagen benutzen. Kapitel 2 sagt Ihnen dann 
altes iiber die Eingabe, und Anhang D gibt einen schnellen Uberblick 
uber die Besonderhei ten von FORTH auf dem Jupiter ACE. 

Es is! auch mdgltch, dafi Sie am eigentlichen Programmieren nicht 
(oder noch nicht?) interessiert sind. Sie wollen also mit bereits 
fertigen,von uns gelieferten Programmen (der software) arbeiten. Fur 
diesen Fall genijgt es, wenn Sie Kapitel 2 und 3 durcharbei ten . Wir 
hoffen aber, daft Sie im Laufe der Zeit doch auf den Geschmack 
kommen und spater selbst programmieren wollen. 

Wenn Sie FORTH noch nicht kennen , vielleicht noch nie mit einem Com- 
puter gearbeitet haben, es aber I ernen mbchten , dann ist dieses Hand- 
buch fur Sie geschrieben. 

Wir set z en keinerlei einschlagige Kenntnisse voraus und werden Ihnen 
langsam, Schritt fur Schritt, die Elemente der Programmiersprache 
FORTH vorstellen. Gleichzeitig versuchen wir dabei auch, Ihnen die 
generelle Arbeitsweise eines Computers zu verdeutlichen. 

Besonders ans Herz legen mbchten wir Ihnen die Ubungen am Ende 
jedes Kapitels, weil wir uberzeugt sind, dafi die erlernte Theorie nur 
in der Praxis erprobt und vertieft werden kann. Es sind dort auch 
Programme auf gef uhrt , die Ihnen hoffentlich Spaft machen . AuBerdem 
wird auf interessante Dinge eingegangen, die uber das jeweilige Kapitel 
hinausgehen . 

Und nun viel Spafi und guten Erfolg! 



KAPITEL 2 

EINGABE UBER DIE TASTATUR 

Ihr Jupiter- ACE sollte jetzt betriebsberei t vorlhnen stehen. Der Fernseh- 
schirrn zeigt ein gleichmaGiges graues Bild, unten links befindet sich 
ein kleines we i Res Viereck, die MARKE . 

Drucken Sie jetzt wahllos auf einige Tasten . Ihr ACE hat Drucktasten, 
und mit ein wenig Ubung spuren Sie genau, ob Sie die Taste korrekt ge- 
druckt haben oder nicht. Das Ergebnis sehen Sie auf dem Bildschirm. 

Viel leicht wird Ihnen das Durcheinander auf dem Bildschirm langsam 
zu groft? Sie konnen alles wieder Ibschen, wenn Sie kurzzeitig den Stecker 
aus dem Gerat Ziehen (in KLirze werden Sie elegantere Methoden kennen- 
lernen ) . 

Wie Sie sehen konnen, erscheinen die Zeichen, die Sie eintippen, im 
unteren Tei I des Bi Idschirms. Dieser Teil heiftt EINGABEFELD. Aus diesem 
Eingabefeld holt sich der Computer seine Anweisungen ab. Wenn Sie mehr 
als eirie Zeile vol I schrei ben (was ganz einfach geht: lessen Sie einmmal 
eine Taste fur ein paar Sekunden gedruckt, dann wiederholt sich das 
Zeichen fortwahrend ) , riickt die Zeile nach oben und macht Platz fur die 
nachste Eingabe. Das Eingabefeld ist also variabel, es kann sich bei 
Bedarf nach oben erweitern. 

Das Zei lenende brauchen Sie nicht zu beach ten, ACE schrei bt Liber die 
Zeilen hinweg. Das Zeilenende existiert namlich nur auf Ihrem Bildschirm 
nicht aber im Innern von ACE. 

Bis jetzt erscheinen alle Buchstaben, die Sie eingeben, k I ei ngeschr ie- 
ben . Wollen Sie einen groften Buchstaben schreiben, drucken Sie (wie bei 
einer Schrei bmaschi ne ) die Taste SHIFT und dazu einen Buchstaben, sagen 
wir das a, und auf dem Bild sc hi rm erscheint ein A. 

Vorne rechts befindet sich (neben der Taste SPACE) die Taste SYMBOL 
SHIFT. Damit konnen Sie die Symbole, Rechenzeichen usw. schreiben, die 
Liber den Buchstaben und Zahlen auf den Tasten stehen. Drucken Sie zum 
Beispiel SYMBOL SHIFT und dazu das c, so erhalten Sie ein ?; SYMBOL. 
SHIFT und 1 ergibt das ! usw. 

Achtung : 



Computer sind vol I i g fantasielos und aufierst pingelig bei der Verwendung 
von Zeichen. Von der Schrei bmasch i ne her sind Sie es vielleicht gewohnt, 
fur die Null einmal 0, einmal den k lei nen oder groBen Buchstaben o zu 
schreiben; oder fur die Ziffer 1 einmal die 1, einmal das Grofte I oder 
das kleine I. Im Umgang mit Computern ist das leider nicht moglich, 

Zur besseren Unterscheidung vom Buchstaben o schreiben wir und auch 
Ihr ACE die Null mit Schragstrich 0. Alle zehn Ziffern befinden sich auf 
der oberen Reihe des Tastatur. 

Vielleicht wundern Sie sich, daft der Computer auf das Durcheinander, 
das Sie eingetippt haben, Liberhaupt nicht reagiert. Das Megt daran,, 
daft Sie bisher wirkiich nur Zeichen getippt haben, aber noch nichts 
eingegeben. EINGEBEN geschieht durch die wohl wichtigste aller Tasten, 
sie heifit ENTER und befindet sich in der zweiten Reihe von unten rechts. 

Tippen Sie irgendetwas und drucken dann ENTER. Hochstwahrschein I ich 
steht jetzt am Anfang der Zeile ein B Damit teilt Ihnen der Computer 
hoflich mit, daft er Ihre Botschaft nicht v erst an den hat, gibt Ihnen aber 
die Mogl ichkeit, sich zu korrigieren . B heiftt also " bitte korrigiern Sie" . 

Loschen Sie den Bildschirm, indem Sie kurz den Stecker herausz iehen und 
drucken noch einmal ENTER. Die Antwort lautet jetzt OK. Mit OK meldet 
der Computer " Befehl ausgefuhrt, bin zu neuen Taten bereit!" In unserem 
Fall hat der Computer alles brav ausgefuhrt, was wir ihm aufgetragen 
haben (namlich nichts), und meldet sich nach getaner Arbeit bei Ihnen 
mit OK wieder zurLick. 
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Was versteht ein Computer? 

Nun, er versteht wie wir Wbrter. Leider keine deutschen Wbrter, nicht 
mal englische. Ihr ACE versteht die Worter der Programmiersprache 
FORTH. Um sie vom ubrigen Text besser unterscheiden zu konnen, werden 
in diesem Handbuch alle FORTH-Worter irn Halbfettdruck ausgedruckt. 

Hier das erste FORTH-Wort VLIST 

Es steht fur Vokabel I iste. Lbschen Sie bitte den Bildschirm und geben 
Sie VLIST ein jd.h. VLIST gefolgt von ENTER). Es ist dabei vol I ig gleich- 
gultig, ob Sie VLIST mit grofjen oder kleinen Buchstaben schreiben. Nur 
in diesem Handbuch sind FORTH-Worter immer grof3 und halbfett gedruckt. 

Auf Ihrem Bildschirm steht nun folgendes: 



VLIST 

FORTH UFLOAT INT FNEGATE F/ F" F 
+ F- LOAD BVERIFY VERIFY BLOAD B 
SAVE SAVE LIST EDIT FORGET REDEF 
INE EXIT ." ( [ +LOOP LOOP DO UN 
TIL REPEAT BEGIN THEN ELSE WHILE 

IF 1 LEAVE J I' I DEFINITIONS V 
OCABULARY IMMEDIATE RUNS> DOES> 
COMPILER CALL DEFINER ASCII LITE 
RAL CONSTANT VARIABLE ALLOT C, , 

CREATE : DECIMAL MIN MAX XOR AN 
D OR 2- 1- 2+ 1+ D+ - + DNEGATE 
NEGATE U/MOD */ " MOD / '/MOD /M 
OD U* D< U< < > = •> *< •= ABS O 
UT IN INKEY BEEP PLOT AT F. EMIT 

CR SPACES SPACE HOLD CLS # #S U 
. . SIGN #> <# TYPE ROLL PICK OV 
ER ROT ?DUP R> >R ! @ C! C@ SWAP 

DROP DUP SLOW FAST INVIS VIS CO 
NVERT NUMBER EXECUTE FIND VLIST 
WORD RETYPE QUERY LINE PAD BAS 

E CURRENT CONTEXT HERE ABORT QUI 
TOK 



Das ist die vollstandige Liste aller FORTH-Worter, die ACE von Haus aus 
versteht, also sein eigenes Wbrterbuch . Wie Sie sehen konnen, handelt 
es sich dabei im englische Ausdrucke, Abkurzungen, mathemati sche Zei- 
chen und Kombi nationen verschiedener Symbole. 

Gegen Ende der Liste finden Sie das Wort VLIST wieder ( das VLIST 
am Anfang ist etwas anderes: zur Kontrolle schreibt der Computer alles, 
was Sie ihm eingegeben haben, noch einmal ganz oben auf den Bild- 
schirm, in diesem Falle also VLIST). 

Das OK am Ende der Liste ist kein FORTH-Wort. Es ist ein interner 
Ausdruck von ACE und signalisiert " Befehl ausgefuhrt!" 

Sie konnen auch mehrere Wbrter gleichzeitig eingeben, z.B. 

VLIST VLIST 

Daraufhin schreibt der Computer zunachst eine Kopie Ihres ersten Befehls 
VLIST auf den Bildschirm, fuhrt ihn aus, schreibt also die Liste aller 
Wbrter, und verfahrt dann mit dem zweiten VLIST genauso; abschl iefiend 
meldet er sich mit OK zurijck . 
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Unbedingt erforderl ich ist der Zwischenraum (Taste SPACE) zwischen den 
Wortern. Wir klugen Menschen finden uns noch einigermaRen zurecht,wenn 
Wbrter p I otzl ichzusammengeschrieben od erf alsch zert eilt werden. Ein 
Computer ist darnit hoffnungslos uber for der t . VL ISTVL I5T ist fur ihn ein 
einziges Wort, das er im Wbrterbuch nicht findet, und VL I STVLIST sind 
zwei Worter, die er ebenfalls nicht kennt, er antwortet deshalb mit Q 

Dagegen stbrt das Schrteiben uber das Zeilenende hinaus ihn uberhaupt 
nicht, denn wie schon gesagt, das Zeilende existiert nur auf dem Bild- 
schirm, fur den Computer ist das gesamte Eingabefeld eine einzige Zeile. 

Zusammenfassung 

- was immer Sie schreiben, erscheint im Eingabefeld im unteren Teil des 
Bi I dschirms 

- Buchstaben erscheinen norma lerwei se als kleine Buchstaben. Groftbuch- 
staben erhalten Sie durch gleichzeitiges Drucken der Taste SHIFT 

- ebenso erhalten Sie Satzzeichen und andere Symbole durch Drucken der 
Taste SYMBOL SHIFT 

- der Compuer verfugt uber ein eingebautes Wbrterbuch mit 142 FOR TH- 
Wbrtern, die er sofort verarbeiten kann. Sie kbnnen diese Wbrter in 
groGen oder kleinen Buchstaben eingeben 

- werden meh rere Wbrter auf einmal eingegeben, mussen diese durch Zwi- 
schenraume {Taste SPACE) getrennt werden 

- die Eingabe erfolgt durch die Taste ENTER. Daraufhin nimmt der Com- 
puter die Wbrter (Befehle) einzeln aus dem Eingabefeld, schreibt sie 
zu Ihrer Kontrol le oben auf den Bildschirm und fuhrt sie aus 

- VL IST ist ein Wort der Prog ramm ierspr ache FORTH . Auf VL IST schreibt 
der Computer eine Liste aller FORTH-Wbrter aus seinem Wbrterbuch 

- findet der Computer in seinem Eingabefeld einen Ausdruck, den er nicht 
versteht, druckt er £ an den Anfang der Zeile. £j bedeutet:" bitte kor- 
i i gieren Sie ! " . 

Das Korrigieren von Tippfehlern 

Bisher kbnnen Sie, wenn Sie sich vertippt haben oder vielleicht vergessen 
haben, einen Zwischenraum (SPACE) zu lassen, nur alles auf einmal lo- 
se hen, in dem Sie den Netzstecker herausziehen. Das kann naturlich nicht 
die einzige Moglichkeit sein. In der Tat bietet Ihnen ACE sehr komfor- 
table Korrekturmbgl ichkei ten . 

Wie Sie sicher langst gemerkt haben, zeigt das kleine weifte Viereck, 
die MARKE, immer genau die Stelle auf dem Bildschirm an, wo das nach- 
ste Zeichen erscheint . 

Nun gibt es verschiedene Moglichkeiten, diese MARKE zu bewegen. Dazu 
benutzen Sie die Tasten der oberen Rtihe, die zusatzlich mit *■ t I ■+ 
gekennzeichnet sind. Drucken Sie, wie bei GrofSbuchstaben, die 
Taste SHIFT und dazu die 5 oder die 8. Die Marke bewegt sich in Rich- 
tung des Pfeils. 

Haben Sie also irrtumlich VIST statt VLIST getippt, so kbnnen Sie das 
ieicht korrigieren . Rue ken Sie durch SHIFT 5 die Marke urn drei nach 
links, dann haben Sie V IST. Jetzt kbnnen Sie das fehlende L eintippen 
und mit SHIFT 8 die Marke wieder nach rechts rucken, urn weiter zu 
schreiben . 
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Sehr praktisch ist auch die Taste DELETE (SHIFT 0) . Sie Ibscht das 
Zeichen links von der MARKE. 

Beispiel : 

Sie haben VLOST getippt anstatt VLIST 

riicken Sie die MARKE urn zwei nach links VLOflST 

drucken Sie DELETE Vl_lST 

tippen Sie dass fehlende I VLI^ST 

Sie konnen jetzt ruhig schon ENTER drucken, der Computer 
kiJmmert sich nicht darum, wo die Marke steht. 

Die Taste SHIFT 6 kann zweierlei bewirken. Angenommen, Sie haben schon 
mehr als eine Zeile geschrieben, dann springt die Marke durch f senk- 
recht urn eine Zeile nach oben . Befindet sie sich schon in der obersten 
Zeile, so springt sie an den Anfang der Zeile. 

Ebenso funktioniert + (SHIFT 7). Die Marke springt eine Zeile tiefer 
oder an das Ende der Zeile. 

Fast alle Zifferntasten haben in Verbindung mit SHIFT eine zweite Funk- 
tion : 

DELETE LINE (SHIFT 1) Ibscht das gesamte Eingabefeld. 

CAPS LOCK (SHIFT 2) Feststeller fur Groftbuchstaben 

Die MARKE verandert sich zu C und die Buchstaben werden 

jetzt groR geschrieben. 

Wenn Sie aber * + + + betatigen wollen, brauchen Sie 

wei terhin SH I FT . 

Nochmaliges Drucken von CAPS LOCK stel 1 1 den a I ten Zu- 

stand wieder her. 

INVERSE VIDEO (SHIFT 4) alles was Sie schreiben, erscheint jetzt negativ 
d.h. schwarz auf weiBem Grund. Das nochmalige Drucken 
von INVERSE VIDEO stel It den Norma Izustand wieder- her. 

GRAPHICS (SHIFT 9) verandert die MARKE zu G. Sie konnen jetzt gra- 

phische Zeichen schreiben. Mit den Tasten 1 bis 7 schrei- 
ben Sie jetzt die Figuren, die auf den Tasten zu sehen 
sind. Nochmaliges Drucken ergibt wieder den Normalzu- 
stand . 

CAPS LOCK, INVERSE VIDEO und GRAPHICS konnen alle unabhangig vonein- 
ander ein-bezw.. ausgeschaltet werden. 

Drucken Sie zum Beispiel nachei nander : 

CAPS LOCKS - GroRbuchstaben 

INVERSE VIDEO - "negative" GroGbuchstaben 

CAPS LOCKS - "negative" Klei nbuchstaben 

GRAPHICS = graphische Zeichen aber "negativ" 

INVERSE VIDEO = die normalen graph ischen Muster der Tasten 1-7 

GRAPHICS - Normalzustand 

Ubungen 

1. Uben Sie das Korrigieren in alien Variationen. 

2. Wir mochten Sie nun endlich davon erlbsen, standig den Netzstecker 
Ziehen zu mussen: was immer Sie getippt haben, DELETE L INE Ibscht 
allies auf einmal, DELETE Ibscht den letzten Buchstaben Ihrer Eingabe, 
Was der Computer geschrieben hat (z.B.das Wbrterbuch) konnen Sie 
durrh Finnahe des FORTH-Wortes CLS Ibschen ! 



12 



KAPITEL 3 



12 



PROGRAMME VON DER KASSETTE LADEN 

Falls Sie bereits ACE-Programme auf Kassette besitzen (z.B.Spiele aus 

unserem Li eferprogramm ), erfahren Sie in diesem Kapitel, wie man Pro- 
gramme von Magnetbandcassetten in den ACE ladt. 

Sollten Sie noch keine fertigen ACE-Programme haben, konnen Sie die 

ses Kapitel vorerst ubergehen. Es lassen sich naturlich nur sol che Pro- 
gramme laden, die speziell fur den ACE geschrieben wurden. 

Sie brauchen einen norma I en Kassettenrecorder, am besten sogar ein 
einfaches Gerat, da teure Hif i-Stereoan I agen oftmals die gespeicherten 
Signale in einer Weise beeinf I ussen , die der Computer nicht versteht. Der 
Kassettenrecorder muf5 eine Mi krofon-Ei ngangsbuchse und eine Kopfhorer- 
Ausgangsbuchse besitzen. Die Buchsen mussen zu den Kl inkensteckern des 
mi tgel ieferten Doppelkabels (schwarz u.grau) passen. Sollte dies nicht 
der Fall sein, besorgen Sie sich im Radio/TV-Fachhandel einen entsprech- 
enden Adapter . 

Verbinden Sie jetzt den Computer und den Recorder mit dem Doppel- 
kabel . Dabei gehbrt der Kopfhorerausgang zur Buchse EAR des Computers 
und der- Mi krofon-Ei ngang zur Buchse MIC. Sie konnen den richtigen An- 
schluR durch die un terse hi edlichen Kabelfarben kontrollieien. 



opf-tiorer-Ausgang TV 
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Netzanschlusse 220 V 



Auf einem Band konnen mehrere Programme gespeichert sein. Sie sind in 
einer besonderen Form dort gespeichert, oder wie man in der Fachsprache 
sagt , cod iert, die sich fur diese Art der- Speicherung ei gnet . 

Jedes Progr-amm hat einen Namen bis zu 10 Zeichen Lange, der eben- 
falls auf dem Band gespeichert ist. 



Wollen Sie jetzt ein Programrn laden, gehen Sie wie folgt vor: 
Legen Sie die Cassette ein, spulen Sie an den Anfang zuriick, oder wen- 
i gstens sowei t, dafi Sie sicher sind, vor dem Programmanfang zu stehen . 
Hat der Recorder einen Klangregler, so stellen Sie ihn auf Minimum bezw. 
Basse ein, und stellen Sie die Lautstarke auf etwa dreiviertel des Hochst- 
wertes. Geben Sie jetzt in den ACE ein 

LOAD Name 

(Name des Prograrnms, das Sie laden wollen), 

drucken Sie ENTER und schalten Sie den Recorder auf Wiedergabe ein. 

Bitte beachten: Der ACE behandelt normalerweise grofie und kleine Buch - 
staben gleich, Sie konnen z.B. ein Wort mit Grofibuchstaben eingeben und 
mit Klei nbuchstaben wieder abrufen. Ein Programrn kann vom Band jedoch 
nur genauso wieder geladen werden, wie es ursprunglich gespeichert war. 
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Da der Computer verschiedene Programme auf dem Band vorf in den kann, 
bevor er zu dem gewunschten kommt, schreibt er alle gefundenen Namen 
von Programmen auf den Bildschirm p Die Anzeige erfolgt in der Form: 

Diet . : (Name des Pcogramms) 

Wenn Ihr Programm vol I stand ig geladen ist, meldet der Bi Idschirm OK. 
Sie konnen jetzt das Bandgerat abschal ten . 

Laftt sich ein Programm nicht laden, oder lauft das Band zu Ende, 
ohne daB das ACE reagiert, sol I ten Sie 

- nachprufen, ob Computer und Kassettenrecorder richtig und einwand- 
frei miteinander verbunden sind 

nachprufen, ob der Programm-Name richtig, auch nach Groft-und 
Kleinbuchstaben unterschieden , eingegeben ist 

- erneut laden mit verschiedenen Einstel lungen des Lautstarkereglers 

- evtl. den Magnetkopf des Recorders reinigen. 



Wenn Sie nicht wissen, welche Programme sich auf einem Band befinden, 
spulen Sie es auf den Anfang zuruck, geben ein 

LOAD 

drCicken ENTER und starten das Band. Der Computer zeigt auf dem Bild- 
schirm die Namen aller gespeicherten Progamme an. 

Es konnen auch mehrere Programme hi n terei nander in den Speicher des 
ACE geladen werden, vorausgesetzt , der Speicher ist groft genug. 

Manche Programmtei le mussen mit BLOAD geladen werden. Es handelt sich 
dabei urn I nformat ionen, die an eine ganz bestimmte Stelle im Speicher 
geladen werden mussen. 

Die ubliche Darstel lungsform fur diesen Fa 1 1 ist 

BLOAD Name 

lm Kapitel 14 erfahren Sie daruber mehr. 
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KAPITEL 4 

DEFINITION NEUER WORTER 

Wenn Sie das Wort VLIST eingeben, erscheinen auf dem Bi Idschirm a I le 
Wbrter, die der Computer bereits kennt, also sein Wbrterbuch, welches 
er von uns mi tbekommen hat. 

Beim ersten Mai erscheinen also diejenigen FORTH-Worter, die fest im 
ACE gespeichert sind. Damit aber ist der Wortschatz beileibe noch nicht 
erschopft, denn Sie konnen auch eigene Worter definieren, d.h. neue Be- 
griffe bestimmen. Auf diesem Wege schreibt man ein Programm, d.h. man 
sagt dem Computer, was und wie er etwas tun soil. 

Ein Beispiel : 

Sie wollen dem Compu ter ein neues Wort HANS 1 ernen , welches bedeuten 
so II, 'Fun re VLIST zweimal a us'. Sie benutzen dabei zwei speziel le FORTH- 
Worter, nam I ich : (Doppelpunkt ) und ; (Semikolon) , wie folgt 

: HANS 

VLIST VLIST 

: ist ein Wort, welches dem Computer mitteilt, daft Sie anschlieRend ein 
neues Wort definieren wollen. Danach kommt zuerst sein Name (HANS), 
und anschl iefiend die Definition, die sagt, wie das Wort HANS auszufuhren 
ist. 

Sie geben also ein : und ENTER hoppla! - En tschu I di gung, ich 

vergaG Ihnen zu sagen, daft nach : unmittelbar das neue Wort kommen 
muR.Sonst erscheint auf dem Bi Idschirm ERROR 6 (Fehler 6) . Schauen Sie 
doch bei dieser Gelegenheit in die Anlage B am Ende des Handbuches, 
dort finden Sie die verse hiedenen Fehl ermog lichkeiten und ihre Bedeutung. 

Wann immer Sie ERROR bei der Eingabe bekommen, mussen Sie diese 
grundsatzlich bei : neu beginnend wiederholen. Also geben Sie erneut 
ein: 

: HANS 

(an Leertaste denken!) 

Wenn Sie jetzt ENTER drucken, sagt der Computer noch nicht OK. Damit 
erinnert er Sie, daft Sie noch mitten in der Definition sind (er sagt aber 
weinigstens nicht mehr ERROR). 

Als nachstes kommt der wichtigste Tei I der Definition, er sagt namlich 
dem Computer, was er tun soil, wenn Sie das Wort HANS spater verwen- 
den, namlich er soil dann zweimal VLIST ausfuhren, 

Geben Sie also ein 

VLIST VLIST 

und drucken Sie die Taste ENTER aber wiederum bekommen Sie noch 

kein OK vom Computer. Auch schreibt er Gott sei Dank keine lange Liste 

von Wortern, denn er weiB, er ist noch mitten in der Definition des Wor- 
tes HANS. 

SchlieBlich geben Sie ein 

was bedeutet, 'die Def ini tion ist zu Ende'. Wenn Sie jetzt nochmals die 
Taste ENTER drucken, antwortet der Computer (endlich!) mit OK. 

Jetzt kennt der Computer das neue Wort HANS. Das konnen Sie auf zwei 
Wegen uberprufen. 
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Zuerst geben Sie VLIST ein. Sie konnen sehen, dal3 das Wort HANS am 
Anfang des Worterbuches auf dem Bilds c hirm erscheint. 

Zweitens geben Sie das Wort HANS ein und konnen sehen, wie der Com- 
puter das gesamte Worterbuch zweimal hi ntereinander auf den Bildschirm 
schreibt, er fuhrt also, getreu Ihrer Definition, VLIST zweimal aus. 

Haben Sie das Wort HANS versehentl ich einmal zu oft eingegeben und 
wollen das Worterbuch nicht schon wieder auf dem Bildschirm sehen, 
drucken Sie einfach die Taste BREAK (SPACE mit SHIFT). Sofort stoppt 
der Computer und zeigt ERROR 3 an (Sie brauchen keinen Fehler in die- 
sem Fall zu suchen). 

Wenn Sie also den Computer wahrend einer Verarbei tung stoppen wollen, 
funktioniert BREAK fast immer. Im Gegensatz zum Ziehen des Netzsteckers 
loscht BREAK auch nicht die Worter, die Sie vorher definiert haben. 

Unter bestimmten Bedingungen, z.B. wenn der Computer den Kassetten- 
recorder benutzt, arbeitet auch die Taste SPACE (ohne Umschaltung mit 
SHIFT) wie BREAK. 

Das Wort HANS, welches wir in unserem Beispiel gebraucht haben, ist da- 
fur naturlich ein n ichtssagendes, ja unsinniges Wort, das niemand in 
der Praxis fur diesen Zweck benutzen wurde. 

Sie werden aber bald feststellen, daR die beiden FORTH-Worter : und 
; benutzt werden konnen, um aufierst w i rkungsvo! I e Worter zu definieren. 
Deshalb sollten Sie sich diese Worter gut einpragen. 

Wenn Sie also ein neues Wort definieren wollen, benotigen Sie zuerst 



zweitens, und zwar auf der gleichen Zeile, jedoch mit einem Leerschritt 
dazwischen, den Namen des neuen Wortes, 

drittens die Definition des neuen Wortes (die sagt, wie das neue Wort 
unter Benutzung bereits vorhandener Worter gebraucht wird), 
und viertens 



Man nennt dies eine Doppe I punktdef i n i t ion , weil Sie : benutzt (es gibt 
auch noch andere Arten von Def i n i t i onen , zu denen wir spater kommen ) . 

Wir haben Sie bisher das Wort HANS auf drei Zeilen definieren lassen, 
um zu zeigen, wie eine solche Definition arbeitet. In der Praxis konnen 
Sie die gesamte Definition in einer einzigen Zeile eingeben: 

: HANS VLIST VLIST ; 

(auf Leertasten achten!) 

Naturlich wuirden Sie in der Praxis auch ein aussagef ah i geres Wort an- 
stelle von HANS benutzen, zum Beispiel 2VLISTS. 

Nun zu einer Konstruk t ion , die Definitionen aussagef ah i ger , i nteressanter 
und auch lustiger macht. Sie kann nur innerhalb von Wortdef i n i t ionen 
benutzt werden und versetzt das definierte Wort in die Lage, eine Nach- 
richt auszudrucken , wenn es aufgerufen wird. 

Die Konstruktion besteht aus dem Wort 
ii 

(Punkt, Anfuhrungsstriche) , dann kommt ein SPACE, dann die Nachricht, 
die geschrieben werden soil, dann " ( Ausf uhrungsstriche) . 
Diese Konstruktion wird oft in Verbindung mit dem Wort 
CR 
(carriage return=Wagenruck lauf ) gebraucht, welches bewirkt, daB die 
nachste Nachricht auf einer neuen Zeile erscheint. 



H i er ein Bei sp iel 



BEN 

CR ." ich mag Dich" 
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Beachten Sie bitte: wenn Sie vergessen, das" ( Ausf uhrungszeichen ) einzu- 
geben, erscheinl auf dem Bildschirm 

1 

um Sie zu erinnern, daft Sie etwas vergessen haben. Denken Sie also da- 
ran, das B bedeutet 'mochten Sie etwas andern oder erganzen? 



Zusammenfassung 

FORTH-Worter : ; CR 

BREAK 

ERROR (Fehleranzeigen) 



Ubungen 

1. Geben Sie bitte ein 

." Hallo!" 

Funk t ioniert nicht? Wie schon gt-sagt, konnen Sie ." nur innerhalb 

einer Wortdef i n i t ion benutzt-n (bitte sehen Sie unlt-r ERROR A im Anhang 
B des Handbuchs nach). 

CR hat die so Einschrankung nicht. Wenn Sie eingt-ben 

CR CR CR CR CR 
warden Sie feststetlen, daft jedesmal eine ncue Zeile angesteuert 

wi rd . 



2 . Def i n ieren Sie eini ge Won ten wie 

: FUSSBALL 

CR ." HSV HAMBURG** 

CR ." wird deutscher Meister" 



und 

: LANDWIRTSCHAFT 

CR ." groRer EG Butterberg" 



Unerraschen Sie Ihre Angt-hori gen und Freunde, indt,-m Sie sie bitten, die 
Wbrter FUSSBALL und LANDWIRTSCHAFT einzugeben. Und erfindtn Sie 
selbst eigene FORTH-Worter mit dazu passenden Texten. Vielleicht einen 
netten Spruch fur jeden Ihrer Angehor igen und Freunde, den Sie unter 
deren Namen definieren. 
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KAPITEL 5 



EINFACHE ARITHMETIK 



Computer sind dafijr bekannt, daR sie sehr schnel I rechnen konnen. 
Lassen Sie uns dies auf dem Jupiter ACE versuchen . 
Geben Sie bitte ein: 

2 2+. 

+ + + 
(an Leertasten denken!) 

Wenn Sie jetzt ENTER drijcken, wird der Computer auf dem Bildschirm 
schreiben '22+ . 4 OK' , was die Kombination Ihrer Eingabe mit der 
Antwort '4 OK' darstellt. Er hat also korrekt 2 und 2 zu 4 addiert. 

Beachten Sie bitte, daft Sie '2 2+' anstatt '2+2' eingegeben haben, 
das heifit, Sie sagen 'Nimm 2 und 2 und addiere sie zusammen' anstatt 
' Nimm 2 und addiere 2'. FORTH arbeitet stets auf diese Weise. 

Die Grundregel lautet also: 

Geben Sie zuerst die Zahlen ein, die Sie wunschen, dann erst geben 
Sie die gewunschte Rechenoperat ion an. Dies ist einem Rezept vergleichbar 
wo zuerst alle I ngredienzien aufgefuhrt werden, und dann erst die Anwei- 
sung folgt, was mit den einzelnen Bestandtei len zu erfolgen hat. 

+ und . (Punkt) sind FORTH-Worter , sie stehen im Worterbuch, welches 
Sie durch Eingabe von VLIST auf den Biidschirm holen konnen. 

+ addiert zwei Zahlen 

. schreibt eine Zahl auf den Bildschirm. 

Die Zahl 2 steht nicht im Worterbuch, aber naturlich wissen Sie und ich 
und der Computer, daB es eine Zahl ist. 

Der Computer speichert die Zahlen, die Sie ei n geben , bis Sie ihm sagen 
was er mit ihnen tun soil. Urn Zahlen zu speichern, benutzt Ihr ACE ein 
kluges Verfahren, welches wir den ' stack ' (Stapel ) nennen. Der Computer 
macht dies elek tron isch, Sie konnen sich aber der Einfachheit halber 
einen Kartenstapel vorstellen, auf dem Zahlen stehen. 

Am Anfang ist der Kartenstapel leer: keine Karten, keine Zahlen. 
Gehen wir zu unserem Beispiel zurijck. Wir hatten zuerst die Zahl 2 ein- 
gegeben. Der Computer nimmt eine leere Karte, schreibt die Zahl 2 darauf 
und legt diese Karte oben auf den stack. 




Fur die zweite Zahl 2 holt er sich ebenfalls eine leere Karte, schreibt 
die Zahl 2 darauf und legt sie wieder oben auf den stack. 




Das FORTH -Wort + besagt 'nimm die be i den obersten Karten vom stack 
und addiere die darauf stehenden Zahlen. Schreibe die Antwort auf eine 
neue Karte und lege diese oben auf den stack. Wirf die beiden vorher- 
gehenden Karten weg'. 
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Das FORTH-Wort . besagt: nimm die oberste Karte des stack, schreibe 
die daraufstehende Zahl auf den BMdschirm und wirf die Karte anschlies- 
send weg . 

+ nimmt immer die zwei obersten Karten des stack, unabhangig wieviele 
Karten noch darunter liegen. 

benutzt die oberste Zahl des stack, alle anderen bleiben unberuhrt. 



Merke also: Die FORTH-Worter 



und . bearbeiten immer die Zahlen, 
also die frischesten I nformationen, die 



die oben auf dem stack liegen 

auch zuletzt auf den stack gegeben wurden. 

Dies gilt fur alle FORTH-Worter. Es ist einsichtig, daft die zuletzt ge- 
kommenen Zahlen, also die neuesten, auch diejenigen sind, welche bear- 
beitet werden sollen. 

Bi Idl ich gesprochen sind die zuletzt gekommenen Zahlen fur den Compu- 
ter immer die frischesten (die a I teren sind im stack quasi zugedeckt), 
und erst wenn die obersten Zahl en verarbeitet sind, erinnert sich der 
Computer auch wieder der darunter liegenden. 



Nun wollen wir einmal drei Zahlen addieren, z.B. 10, 11 und 12. Zu- 

erst mussen Sie 10 und 11 addieren. Sie drucken das Ergebnis aber nicht 

aus, sondern lassen es auf dem stack stehen, urn anschlieGend noch 12 
dazu zu add i eren . 

Geben Sie bitte ein: 



11+12+ 






12 





zeigt ' 33' auf dem Bi Idschirn 



Wenn Sie jetzt vom Addieren genug haben, beschaftigen Sie sich bitte mit 
den anderen Rechenarten. 
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KAPITEL 5 



EINFACHE ARITHMETIK 



Computer sind dafur bekannt, daB sie sehr schnel I rechnen konnen. 

Lassen Sie uns dies auf dem Jupiter ACE versuchen . 
Geben Sie bitte ein: 

2 2+. 

+ + + 
(an Leertasten denken!) 

Wenn Sie jetzt ENTER drucken, wird der Computer auf dem Bildschirm 
schreiben '22+ . 4 OK' , was die Kombination Ihrer Eingabe mit der 
Antwort '4 OK' darstellt. Er hat also korrekt 2 und 2 zu 4 addiert. 

Beachten Sie bitte, dafl Sie '22+' anstatt ' 2+2' eingegeben haben, 
das heiflt, Sie sagen 'Nimm 2 und 2 und addiere sie zusammen' anstatt 
' Nimm 2 und addiere 2' . FORTH arbei tet stets auf diese Weise. 

Die Grundregel lautet also: 

Geben Sie zuerst die Zahlen ein, die Sie wunschen, dann erst geben 
Sie die gewunschte Rechenopera t ion an. Dies ist einem Rezept vergleichbar 
wo zuerst alle Ingredienzien aufgefijhrt werden, und dann erst die Anwei- 
sung folgt, was mit den einzelnen Bestandtei len zu erfolgen hat. 



+ und . (Punkt) sind FORTH-Worter, sie stehen im Worterbuch, 
Sie durch Eingabe von VLIST auf den Bildschirm holen konnen. 

+ addiert zwei Zahlen 

. schreibt eine Zahl auf den Bildschirm. 



ve I ches 



und ich 



Die Zahl 2 steht nicht im Worterbuch, aber naturlich wissen Sie 
und der Computer, daft es eine Zahl ist. 

Der Computer speichert die Zahlen, die Sie eingeben, bis Sie i hm sagen 
was er mit ihnen tun soil. Urn Zahlen zu speichern, benutzt Ihr ACE ein 
kluges Verfahren, welches wir den ' stack' (Stapel ) nennen. Der Computer 
macht dies elek tron isch, Sie konnen sich aber der Einfachheit halber 
einen Kartenstapel vorstellen, auf dem Zahlen stehen. 

Am Anfang ist der Kartenstapel leer: keine Karten, keine Zahlen. 
Gehen wir zu unserem Beispiel zuruck. Wir hatten zuerst die Zahl 2 ein- 
gegeben. Der Computer nimmt eine leere Karte, schreibt die Zahl 2 da r auf 
und legt diese Karte oben auf den stack. 



Fur die zweite Zahl 2 holt er sich ebenfalls eine leere Karte 
die Zahl 2 darauf und legt sie wieder oben auf den stack. 




Das FORTH- Wort + besagt ' nimm die be i den obersten Karten vom stack 
und addiere die darauf stehen den Zahlen . Schreibe die Antwort auf eine 
neue Karte und lege diese oben auf den stack. Wirf die beiden vorher- 
gehenden Karten weg'. 
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Das FORTH-Wort . besagt: nimm die oberste Karte des stack, schreibe 
die daraufstehende Zahl auf den Bildschirm und wirf die Karte anschlies- 
send weg. 

+ nimmt immer die zwei obersten Karten des stack, unabhangig wieviele 
Karten noch darunter liegen. 

benutzt die oberste Zahl des stack, alle anderen bleiben unberuhrt. 



Merke also: Die FORTH-Worter 



jnd 



bearbeiten immer die Zahlen, 



die oben auf dem stack liegen, also die frischesten I nformationen, die 
auch zuletzt auf den stack gegeben wurden. 

Dies gilt fur alle FORTH-Worter. Es 1st einsichtig, dafi die zuletzt ge- 
kommenen Zahlen, also die neuesten, auch diejenigen sind, welche bear- 
beitet werden so lien. 

Bildlich gesprochen sind die zuletzt gekommenen Zahlen fur den Compu- 
ter immer die frischesten (die alteren sind im stack quasi zugedeckt), 
und erst wenn die obersten Zahlen verarbeitet sind, erinnert sich der 
Computer auch wieder der darunter 1 liegenden. 



Nun wollen wir einmal drei Zahlen addieren, z.B. 10, 11 und 12. Zu- 

erst mijssen Sie 10 und 11 addieren. Sie drucken das Ergebnis aber nicht 
aus, sondern lassen es auf dem stack stehen, urn ansch I ieftend noch 12 
dazu zu addieren. 

Geben Sie bitte ein: 

10 11+12+ 






12 





zeigt '33'auf dem Bildschirm an 



Wenn Sie jetzt vom Addieren genug haben, beschaftigen Sie sich bitte mit 
den anderen Rechenarten. 
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- bedeutet Subtraktion. Das Minuszeichen - erzeugen Sie, indem Sie 
die Taste SYMBOL SHIFT gedruckt halten und dann 'J' eingeben. Bitte 
verwechseln Sie das Minuszeichen - nicht mit dem Unterstreichungszei- 
chen auf der Taste 0, das ahnlich aussieht. 

* ist das Zeichen fur Mu I tipl ikation (SYMBOL SHIFT mit B). Bitte ver- 
wechseln Sie es nicht mit dem Buchstaben x. 

/ ist das Zeichen fur Division (SYMBOL SHIFT mit V). 



Die Zahlen, die damit verarbeitet werden kbnnen, sind ganze Zahlen. 
Sie konnen negatives Vorzeichen haben, jedoch kbnnen weder Bruche noch 
Dezimalzahlen verarbeitet werden. (Die Verarbei tung von Dezimalzahlen 
geschieht unter Verwendung anderer FORTH-Worter, zum Beispiel F+ an- 
stelle von + , und F. anstelle von . Naheres daruber im Kapitel 

15). 
Das gleiche gilt auch fur das Ergebnis der Division, denn auch hier er- 
scheinen keine Bruche. 

Versuchen Sie zum Beispiel 11 durch 4 zu teilen: 

114/. 

Wenn Sie in Bruchzahlen rechnen wurden, ware das Ergebnis 2 3/4. Da 
aber nur mit ganzen Zahlen gearbeitet wird, ist die Antwort, die der 
Computer gibt '2'. 

Ein anderer Weg zur richtigen Antwort ware '2 Rest 3', aber wir haben 
den Rest nicht abgefragt. Wenn Sie den Rest wissen wollen, dann bewirkt 
das FORTH-Wort MOD, da(5 der Rest auf dem stack gespeichert wird: 
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MOD 



schreibt den Rest '3'auf den Bildschirm, wenn 11 durch 4 geteilt wird. 
(MOD steht fur modulo. 11 modulo 4 ist 3, aber trotz dieses hochtrabenden 
Begriffs handelt es sich eben nur um den Rest). 

Wenn Sie beide, den Quotienten und den Rest sichtbar machen wollen, 
brauchen Sie das Wort /MOD 

1 1 4 /MOD . . 

Die zeigt, wie wirksam es ist, einen stack zu haben, denn /MOD speichert 
zwei Antworten, den Quotienten und den Rest. 
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/MOD 




schreibt 2 
schreibt 3 



/MOD speichert den Quotienten an oberster Stelle des stack, somit wird 
dieser auch bei . zuerst ausgedruckt. Als nachstes kommt der Rest. 
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Hier nun eine Liste der me is ten FORTH-Worter, die man fur ari thmet ische 
Opera tionen einsetzt. Sie ist nicht vollstandig, zeigt aber die Variations- 
breite auf, die zur Verfugung steht, bevor man selbst eigene Wbrter defi- 
nieren muB . 

Achtung: Diese Worter arbeiten nur richtig, wen die damit verarbei teten 
Zahlen nicht zu grofi sind. Siehe Ubung 2 dieses Kapitels. 

+ - * / MOD und /MOD haben Sie bereits kennengelernt . 

NEGATE andert das Vorzeichen der obersten Zahl des stack, d.h. es mul- 
tipliziert die Zahl mit -1. 

1+, 1-, 2+ und 2- sind speziel I def inierte FORTH-Worter, die das gleiche 

bewirken wie 1 +, 1 - usw. (d.h. mit Leerzeichen ) , sie verarbeiten aber 

schneller. Zum Beispiel addiert 1+ eine Eins zu der obersten Zahl des 
stack . 

*/ verarbeitet die drei obersten Zahlen des stack und speichert eine neue 
dort ab . Es nimmte die drei obersten Zahlen, mu I i tip I iziert die zweite 
mit der dritten Zahl, und dividiert das Produkt anschlieflend durch die 
oberste Zahl des stack. 
Zum Beispiel : 

6 5 2*/. 

arbeitet wie 

6 5*2/. 

mit dem Ergebnis (6*5) ±2- 15. 

*/M0D ist wie */, aber mit einer /MOD Operation anstelle von /. Es 
nimmt drei Zahlen vom stack und speichert anschlieBend zwei dort ab, 
den Rest und den Quotienten.. 

MAX und MIN nehmen zwei Zahlen vom stack und speichern die grofiere 
oder kleinere dort wieder ab. 

ABS nimmt eine Zahl vom stack und speichert dort ihren absoluten Wert 
wieder ab, d.h. die gleiche Zahl, aber ohne Vorzeichen, so daB die dann 
Null oder positiv ist. 

Probieren Sie diese FORTH-Worter aus, um zu sehen, wie der Computer 
damit arbeitet. 



Zusammenfassung 

der stack (Stapel ) 

FORTH-Worter +, -, *, /, MOD, NEGATE, 1 + , 1-, 2+, 2-, */, */MOD, 
MAX, MIN, ABS. 



Jedes ari thmet ische Problem kann als Ubung auf dem ACE gelost werdtn 

z.B. 
Eine Quarzarmbanduhr kostet 89, 5o DM. Wieviel davon ist als Mehr- 
wertsteuer an das Finanzamt abzufuhren? (der Preis von 89,50 DM 
schlieGt die Mehrwertsteuer von 14 % ein). 

Losung: wir arbei ten in Pfennigen, um Bruche und Dezimalzahlen 
zu vermeiden. Der Preis + Mehrwertsteuer ist 114 % des Preises ohne 
Mehrwertsteuer (der Preis selbst - 100 %, Mehrwertsteuer - 14%, so 
daft der Gesamtpreis 114 % ausmacht), d.h. um vom Preis ohne Mehr- 
wertsteuer zum Preis mit Mehrwertsteuer zu kommen, mu I tipl iziert man 
mit 114/100. Wir jedoch haben bereits den Preis einsch I ie(3 1 ich der 
Mehrwertsteuer, so dafi wir den umgekehrten Weg gehen, d.h. wir 
mu 1 1 ipl izieren mit 100/114. 
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Also: Preis ohne Mwst. = 8950 * 100/114. Die Antwort, die wir brau- 
chen, namlich die Mwst., ist davon 14%, also 8950 * 100/114 * 14/100 
= 8950 * 14/114. 

Geben Sie also ein: 

8950 14 114 */ . 

Die Antwort, namlich wieviel Mehrwertsteuer Sie auf die Armbanduhr be- 
zahlen, ist 1099 Pfennige Oder 10,99 DM. 

2. Es gibt ein Limit in der GrbBe der Zahlen, die der Jupiter ACE nor- 
malerweise verarbeiten kann. Der Computer sagt Ihnen aber nicht, wenn 
Sie dieses Limit erra'cht haben. 

Die grbBte Zahl ist 32767 und die kleinste -32768. 
Tatsachlich aber stellen die verfugbaren Zahlen einen geschlossenen Kreis 
dar, so daft, wenn Sie 

32767 1+ . 

eingeben, Sie -32768 erhalten, 

oooooooooooooooo o 

positive Zahlen 3 * ° 

2 • • 32766 

1 • • 32767 

• '-32768 

negative Zahlen -1 • '-32767 

-2 * '-32766 



-3 



o oooooooooooooo 



Zahlen auBerhalb dieser Reihe werden nicht korrekt eingelesen. 
Versuchen Sie 

32768 . 

Sie erhalten -32768. 

Diese Beschrankung betrifft die meisten Rechenprobleme mi *, weil haufig 
zwar die beiden miteinander zu mul tipl izierenden Zahlen selbst klein 
genug sind, das Resultat jedoch groBer als erlaubt. Zum Beispiel: 

256 256 * . 

ergibt (die richtige Antwort ware 65536). 

3. Versuchen Sie diese drei Zahlen: 

256 256 * 256 / . 

und 

256 256 256 */ . 

Die erste Rechnung geht schief, wie wir es in der zweiten Ubung erlau- 
tert haben. Sie kbnnten nun erwarten, daB die zweite Rechnung ebenfalls 
falsch wird: Sie erhalten jedoch die richtige Antwort. 

Urn zu vermeiden, daB bei Mul tipl ikation mit nachfol gender Division 
zu groBe Zahlen, die der Computer nicht mehr verarbeiten kann, entste- 
hen, wurde das FORTH-Wort */ gebildet, welches das verhindern kann. 
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4. Drucken Sie die . Taste solange, bis nichts mehr auf dem stack ist. 
Der Computer wird dann eine unsinnige Zahle ausdrucken und anschlies- 
send ERROR 2. Dies bedeutet 'stack underflow' oder ' es scheint we niger 
als keine Zahl auf dem stack zu sein". 

'stack underflow' wird nicht immer sofort entdeckt, weil der Computer 
dies nur zu bestimmten Zei ten pruft. Zwischen diesen Prufungen kann 
es durchaus passieren, daR der Computer in einen Bereieh unterhalb des 
stack gerat, ohne es zu merken. 

Das macht aber garments (namlich dem Computer) , da er dort einige 
unsinnige Zahlen vorfindet, mit denen er spielen kann. 

Wenn Sie zum Be i spiel annehmen, Sie hat ten einen leeren stack und 
geben ein 

1 + 

wird der Computer 1 zu einer dieser unsinnigen Zahlen addieren. 

Da der eigentliche Zweck des + ist, eine Zahl vom stack zu nehmen, 
bildet sich der Computer ein, daft er die 1 vom stack genommen und so- 
mi t einen vol I ig leeren stack hinterlassen hat . 

Ein exakt leerer stack ist jedoch nicht ' underflowed' , so daft kein 
ERROR 2 erscheint. Wenn Sie jedoch erneut + eingeben (nachdem Sie 
bereits zwei unsinnige Zahlen zusammenaddiert haben), versucht der Com- 
puter eine Zahl vom bereits leeren stack zu nehmen, und dies bewirkt 
dann 'underflow' . 

Beachten Sie. daft ERROR stets den stack leert! 



5. Versuchen Sie 

10/. 

Sie werden uberrascht sein, daft die Ant wort angebl ich -1 sein sol I . Dies 
i s t naturlich falsch. Sie durfen namlich nicht durch dividieren; tun 
Sie es trotzdem, erhalten Sie unsinnige Zahlen. 
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KAPITEL 6 

DEFINITION NEUER AR ITHMET I SCHER WORTER 

Mi t den Wbrtern +, -, * usw., die Sie b'isher schon kennengelernt haben 
v erf u gen 5ie be re its uber eine ganze Anzaht geeigneter Bausteine, m i t 
denen Sie neue Worter bilden konnen. Hier folgt zum Beispiel ein solches 
Wort, mit dem Sie Zahlen verdoppeln und anzeigen konnen: 

: DOPPEL 

2 * . 

Die Zahl, die Sie nun verdoppeln wollen, muft naturlich schon i m stack 
sein, bevor Sie DOPPEL verwenden. Geben Sie z.B.folgendes ein: 

23 DOPPEL 

dann passiert im stack folgendes: 
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DO PP EL fuhrt aus: 
2 




zeigt 46 an 



Wie jedes FORTH-Wort greift DOPPEL auf den stack zu und holt sich von 
dort Zahlen. Den ken Sie immer da ran: ein Wort nimmt Zahlen aus dem 
stack (das sind die Operanden, mit denen es arbeitet), und legt nach 
Ende der Bearbeitung andere dort wieder ab (das sind die Ergebnisse). 

Es ist aber nicht gesagt, daft die Zahl der Operanden gleich der Zahl 
der Ergebnisse sein mufi. 

Zum Beispiel : 

+ hat zwei Operanden (die Zahlen die addiert werden sollen) und ein 
Ergebnis (die Summe) . 

. hat einen Operanden (die Zahl, die angezeigt wird) und kein Ergebnis 
(denn die Zahl verschwindet nach der Anzeige aus dem stack ) , 

DOPPEL hat einen Operanden und kein Resultat. 

/MOD hat zwei Operanden (Dividend und Divisor) und zwei Ergebnisse 
(Quotient und Rest ) . 

Die Zahl 2 z.B. konnte man als FORTH-Wort ohne Operanden mit einem 
Ergebnis (namlich 2) betrachten. 

Mi t diesen Beispielen so II unsere Feststellung im Kapitel 5 nochmals 
untermauert werden : 

Sammeln Sie zuerst di e Zahlen zusammen, mit denen Sie etwas vor haben, 
und dann rechnen Sie mit ihnen. 
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Die Zahlen, mit denen man etwas vorhat, sind die Operanden. Zusammen- 
getragen werden sie durch Ablegen im stack. 

Einige Worter haben die Funktion, Zahlen innerhalb des stack zu mani- 
pulieren. Die drei einfachsten sind SWAP, DUP und DROP. 

SWAP vertauscht die beiden obersten Zahlen im stack 
von 



Q 



Q 



K 



(Richtige Spielkarten haben naturlich aufgedruckte Zahlen und nicht K 
oder Q, aber da die Zahlen beliebig sein konnen, stellen wir sie in Form 
von Buchstaben dar). 

DUP dupliziert die oberste Zahl im stack, sie wind also kopiert: 

w i rd 



K 



K 



DROP wirft die oberste Zahl des stack weg : 

wi rd 



K 



NICHTS 



Es wird jedoch nur eine Zahl entfernt. Sind zwei oder mehr Zahlen im 
stack, dann sieht das so aus: 



K 



w i rd 




Nun folgt ein Wort 5Q, welches das Quadrat einer Zahl berechnet (d . h . 
die Zahl wird mit sich selbst mu 1 1 i pi iz iert ) . Da das Ergebnis nicht ange- 
zeigt wird, hat es einen Operanden (die ursprungliche Zahl) und ein 
Resultat (ihr Quadrat). 



K 



en tsteht 



T 
Operand 




Resultat 



Nochmals zu Verdeutl ichung : der Buchstabe K stent fur eine beliebige 
Zahl, und 'K*K'soll bedeuten, daft K mit sich selbst mu 1 1 i p I iziert wurde. 

Das Wort SQ hat folgende Definition: 

: SQ 
DUP * 
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Sie konnen die Wirkung an verschiedenen Beispielen uberprufen, z.B. 

6 SQ . 

(stellen Sie in der Spiel kartenform dar, wie sich der stack im Laufe der 
Operation SQ andert ) . 

Anstatt weiterhin Bilder von Spielkarten zu rechnen, wollen wir ab jetzt 
eine vereinfachte symbolische Schreibweise fur die Vorgange irn stack be- 
nutzen . 

Wir ersetzen das Diagramm 



K 



ird zl 



K*K 



durch die Zei le 
( K 
Operand 



K*K ) 

Resul tat 



Hat ein Wort mehr als einen Operanden oder men re re Resultate, werden 
a I le aufgefuhrt . Fur das Wort /MOD z.B. bedeutet das 

( K, Q Rest aus K:Q, Quotient K:Q ) 

zweiter Op. oberster Resultat an Resultat an 
von oben Operand der 2. St e 1 le oberster Stelle 



Hier noch eine Erlauterung zur Schreibweise: 

Werden Operanden oder Resul tate aufgeTist et , korrmt die Spitze des stack irrmer 
zuletzt. In Kart endarst el lung sieht das so aus: 

Die unterste wird zuerst ausgegeben 



Q 



Re-st 



Quotient 
Quotient 
K+Q 

Quotient 



Die oberste wird zuletzt ausgegeben 

Esjst sehr wichtig, genau zu wissen, welche Operanden jedes Wort im 
stack erwartet und welche Resultate es schliefilich dort hinterlaBt. 

Es empfiehlt sich deshalb, diese Information als Bestandteil in die 
Wortdef in i t ion selbst mit einzubauen. Dies geschieht in Form von Kommen- 
taren . 

Alles was in runde Klammern ( ) ei ngeschlossen ist, ist ein Kommen- 
tar, dient nur zur Unterstutzung des Programmierers und wird vom Com- 
puter bei der Ausfuhrung vol I i g ignoriert. 

Hier folgt eine Definition des Wortes SQ, die einen sole hen Kommentar 
beinhal tet 



SQ 
( K 
DUP 



K :|: K ) wird bei Ausfuhrung nicht beachtet 
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Sie kbnnen Kom men tare an beliebiger Stelle zwischen dem Namen eines 
neuen Wortes und dem Semikolon einfugen. Der Inhalt eines Kommentars 
muB sich nicht auf Er I auterungen zum stack beschranken. Sie konnen 
auch Not izen eintragen, die Sie spater wieder daran erinnern, was Sie 
m i t dem Wort bezwecken wollten. 

Auf die erste runde Klammer ( muB ein SPACE fol gen , denn das Zei - 
chen ( ist ja selbst ein FORTH-Wort mit der Bedeutung ' es folgt ein 

Kommentar' . Beach ten Sie bi tte, daft Sie eine schl iefiende Klammer ) 
innerhalb des Kommentars nicht verwenden durfen , denn sie schl ieflt den 
Kommentar selbst ab . 

So nutzlich Kommentare sind, sie verbrauchen viel Speicherp latz : 

So II ten Sie also je den Hinweis ERROR 1 er halt en, der besagt, daft der 
Speicher voll ist, ist es empfeh I enswert , als erstes die Kommentare aus 
Ihren Worten zu entfernen. 

Es ist zweckmafiig und ublich, Kommentare solange beizubehalten, bis 
ei n Wort einwandfrei funktioniert. Wenn Sie spater Worter auf Cassette 
sichern, (Kapitel 14), werden Sie feststellen, daft es praktisch sein kann, 
zwei Versionen zu speichern.: eine mit Kommentar, als Referenz und Doku- 
mentation, und eine zweite ohne Kommentar fur den Gebrauch in anderen 
Programmer! . 

Wenn Sie die spater folgenden Programmbeispiele aus diesem Buch ei n- 
tippen, werden Sie wohl kaum die Kommentare mit eingeben, denn die ha- 
ben Sie ja schwarz auf weift vor sich liegen. 

In Ihren eigenen neuen Programme n, die Sie spater mac hen werden, 
aber werden Sie den Nutzen von Kom men t a ren schatzen lernen. 

Das Wort ( verhalt sich genau wie das Wort . " . Bei de konnen Sie 
nur innerhalb einer ubergeordneten Wortdefinition verwenden. 
Vergessen Sie die schlieftende Klammer ) , erhalten Sie @. 

Haben Sie beide Versionen von SQ eingegeben, dann werden Sie mit VLIST 
feststellen, daft SQ im Worterbuch zweimal vorkommt. Das soil Sie vorerst 
noch nicht store n, der Computer verwendet immer die neueste Versi on ,- 
also die, welche Sie zuletzt eingegeben haben. Im nachsten Kapitel lernen 
Sie, wie Sie die alte Version wieder loswerden konnen. 

Zusammenfassung 

FORTH-Worter nehmen ihre Operanden oben aus dem stack und legen ihre 
Ergebnisse auch dort wieder ab. 

DUP ( K -K,K ) ( dup I icate-kop ieren ) , dupliziert die oberste 

Zahl im stack 

DROP ( K - ) (drop-fal I en lassen), wirft die oberste Zahl 

weg , I bscht sie . 

SWAP ( K,Q Q,K ) ( swap-urmtauschen ) , vertauscht die beiden 

obersten Zahlen 

( ( - ) beginnt einen Kommentar, der mit ) abge- 

schlossen werden muft. Auf den stack hat ein 
Kommentar keinen Einfluft. 

Es gibt noch wei tere Worter, die den stack beeinf I ussen : 

OVER ( K,Q - K,Q,K } kopiert die zweite Zahl auf dem stack nach 

oben an die Spitze. Der Inhalt des stack 
wird verschoben . 

ROT ( K,Q,J - Q,J,K ) vertauscht die oberen drei Zahlen zyklisch 

und bringt dadurch die dritte Zahl an die 
Sp i tze. 

PICK ( n - K ) nimmt eine Zahl (hier n genannt) von der 

Spitze des stack, macht eine Kopie der n-ten 

Zahl von oben und legt diese an der Spitze 
ab. 
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PICK andert zum Beispiel 
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denn J ist die dritte Karte im Stapel 




K I 

J 

J 



ROLL ( n - ) nimmt eine Zahl n von oben und vertauscht innerhalb der 
rest I ichen Zahlen die ersten n Zah I en zyklisch, wobei die n-te Zahl an 
die Spitze tritt. Beispiel: 





durch Vertauschen der 4 Karten 




Ubungcn i 

1. Definieren Sie ein Wort, das die Mehrwertsteuer aus einem Verkaufs- 
preis berechnet und als Ergebnis den Preis ohne Mehrwertsteuer hat. 
(Vergleichen Sie Ubung 1 im vorherigen Kapitel. Prufen Sie anhand 
der dortigen Zahlen nach, ob I hr neues Wort das richtige Ergebnis 
br i ngt . ) 

2. Uberzeugen Sie sich davon, dafi die folgenden Aussagen wahr sind: 

1 PICK ist dasselbe wie DUP 

2 PICK ist dasselbe wie OVER 

1 ROLL bewirkt nichts 

2 ROLL ist das gleiche wie SWAP 

3 ROLL ist das gleiche wie ROT 
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Versuchen Sie PICK und ROLL mi t negativen Operanden auszufuhren. 
....das mag der Jupiter ACE nicht, Sie erhalten ERROR 7. 

Andererseits sind PICK und ROLL relativ unempf indl ich, wenn der 
stack leer ist. Mit PICK konnen Sie niemals ERROR erzeugen, der doch 
sonst sofort kommt, wenn der stack zu wenig Operanden fur ein Wort 
en thai t . ROLL spielt mit bis zu 5 unsinnigen Zahlen im stack, bevor 
es aufgibt und ERROR meldet. G I uck I icherwei se aber richten die beiden 
keinen Schaden an . ROLL wuhlt also nicht etwa aus Mangel an ZAHLEN 
im Worterbuch herum. 

3. Sie kennen sicher den ' i mmerwahrenden Kalender' , mit dem Sie anhand 
einiger Tabellen zu einem Datum den jeweiligen Wochentag bestimmen 
konnen. Die folgenden Worter bilden einen solchen Kalender fur die 
Jahre 1901 bis 1999. 

DATUM nimmt vom stack den Tag ( 1 - 31 ) , den Monat ( 1 - Januar, 
12 - Dezember ), und das Jahr (hier genugen die letzten zwei Stellen) 
und legt als Ergebnis den richtigen Wochentag in Form einer Zahl ab 
f 1 - Montag, 7 Sonntag). 

FORMAT ist ein Trick, urn mit dem Monat Februar fertig zu werden . 
Das ist notwendig, well der Februar mit seinen 28 oder 29 Tagen die 
Berechnung storen wiirde. Das Wort FORMAT tut so, als ob Neujahr 
am 1. Mar/ ware, und Januar und Februar noch in das alte Jahr ge- 
horten . Die r ichtige Jahresei ntei I ung wird gegen diese veranderte Ver- 
sion vertauscht und die Monats- Numer ierung en tsprechend verandert: 
Marz, 11 Februar. 

JAHR stellt fest, welcher Wochentag der 1. Marz ist. Es geht von der 
Tatsache aus, daR der 1 . Marz jeden Jahres urn einen, und jedes 
Schaltjahr urn 2 Wochentage verschoben wird. Es zahlt die Gesamtver- 
schiebung fur das laufende Jahr gegenuber dem 1 . Marz des Jahres 
1900 aus (damals war der l.Marz ein Donnerstag). 

MONAT errechnet zunachst, wieviel Tage zwischen dem 1. Mar/ und 
dem Ersten des eingegebenen Monats liegen: Fur Mar/ ^ind das Tage- 
( da ja der- Marz hier- der erste Monat des Jahres ist), fur April 31 
Tage, fur Mai 61 Tage usw. Das Ganze geht wieder mit einem Kn iff : 

Wurde man Bruche benut zen (die wir ja noch nicht kennen), kdnnte 
man das Ergebnts durch Mu 1 1 i pi i kat ion der- Monatszahl mit 30,6, Addi- 
tion von 0,5 und Abrunden auf die nachstklei nere Zahl erhalten; in 
unserer Ganzzah I ar i thmet i k mu I t i p I i z ieren wir mit 306, add i ere n 5 und 
di v idieren durch 10. 

Im nachsten Schritt wird das Ergebnis von JAHR h i nzuadd iert , so 
dal3 wir die Zah! von Tagen erhalten, um die der Monatscrste gegen- 
uber dem 1. Mar/ 1900 verschoben ist. 

TAG addiert schlieBlich noch die Tageszahl zum Ergebnis von MONAT 
und wandelt das Ganze dann in den Wochentag um. 

Und nun das Programm zum Eingeben: 

: FORMAT 

I Monat, Jahr - Monat, Jahr mit Anfangsmonat Marz) 
SWAP 9+12 /MOD 
1- ROT + 



: JAHR 

( Jahr - Zahl der Tage, um die der 1 .Mar z gegenuber 1900 
verschoben ist) 
DUP h / + 
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: MONAT 

( Monat, Zahl der Tage - Zahl der Tage, um die der Monats 

erste gegen den I.Marz 1900 ver- 
schoben ist) 

SWAP 306 * 5 + 10 / + 



TAG 

( Tag, Ergebn is aus MONAT - Wochentag) 
+ 2+7 MOD 1 + 



DATUM 

( Tag, Monat, Jahr - Wochentag) 
FORMAT JAHR MONAT TAG 



Jetzt kbnnen Sie Ihren Kalender einsetzen um z.b. festzustel len , an wel- 
chern Tag der erste Mensch auf dem Mond landete. Geben Sie ein 

21 7 69 DATUM . 

und Sie erhalten ' 1 ' auf dem Bildschirm angezeigt. Neil Armstrong bet rat 
also an einem Montag als erster Mensch den Mond . Wenn Sie es nicht 
glauben, fragen Sie Armstrong selbst! 

Aber naturlich konnen Sie auch viel naher I iegende Daten ermitteln, z.B. 
wann dieses Jahr Ihre Angehorigen und Freunde Geburtstag haben. 

Achtung : Das Programm rechnet fur wirklich existierende Tage richtig, 
mit falschen Eingaben konnen Sie es aber ' auf 's Kreuz legen'. Wenn Sie 
also fragen, welcher Tag etwa der 29.Februar 1979 war, wird es brav 
antworten: 4. also Donnerstag, obwohl es diesen Tag uberhaupt nicht 
gegeben hat, denn das Jahr 1979 war ja kein Schaitjahr. Um solche Pan- 
nen zu verhindern, mijssen Sie wesentlich mehr Aufwand betreiben. 
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: MONAT 

{ Monat, Zahl der Tage - Zahl der Tage, urn die der Monats 

erste gegen den I.Marz 1900 ver- 
schoben i st ) 

SWAP 306 * 5 + 10 / + 



: TAG 

( Tag,Ergebnis aus MONAT - Wochentag) 
+ 2+7 MOO 1 + 



DATUM 

( Tag, Monat , Jahr - Wochentag) 

FORMAT JAHR MONAT TAG 



Jetzt konnen Sie Ihren Kalender einsetzen um z.b. festzustei I en , an wel- 
chem Tag der erste Mensch auf dem Mond landete. Geben Sie ein 

21 7 69 DATUM . 

und Sie erhalten 1 ' auf dem Bildschirm angezeigt. Neil Armstrong betrat 
also an einem Montag als erster Mensch den Mond. Wenn Sie es nicht 
glauben, fragen Sie Armstrong selbst! 

Aber naturl ich konnen Sie auch viel n a her I iegende Da ten ermi tteln, z .B. 
wann dieses Jahr Ihre Angehorigen und Freunde Geburtstag haben. 

Achtung: Das Programm rechnet fur wirklich existierende Tage richtig, 
mit falschen Eingaben konnen Sie es aber ' auf 's Kreuz legen'. Wenn Sie 
also fragen, welcher Tag etwa der 29.Februar 1979 war, wird es brav 
antworten: 4. also Donnerstag, obwohl es diesen Tag uberhaupt nicht 
gegeben hat, denn das Jahr 1979 war ja kein Schaltjahr. Um soiche Pan- 
nen zu verhindern, mussen Sie wesentlich mehr Aufwand betreiben. 
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KAPITEL 7 

ANDERN VON WORT-DEF I N ITIONEN 

In der Programmierung gibt es zwei grundlegende Pri nzi p ien : 

1 .Programme schreibt man so, daft sie gleich beim ersten Mai richtig ar- 
bei ten , 

2. Sie funktionieren niemals beim ersten Mai. 

Alle neuen Computerprogramme fangen ubl icherweise mit dem an, was Pro- 
grammierer gerne mit dem Wort 'bugs' umschrei ben , mit Fehlern eben . 

Einige entstehen aus Unaufmerksamkei t oder aus T i ppfehlern, was be- 
wirkt, daft das Programm gar nicht erst zum Laufen kommt. Andere hin- 
gegen sind sehr komp I izierter Natur, die nur unter bestimmten Umstanden 
zu fehlerhaften Ergebnissen f lihren konnen . 

Wenn tin Programm Fehler enthalt, heiftt das noch nicht, daft es 
schlecht ist und weggeworfen werden mufl; wahrschei n I ich ist sogar das 
Meiste in Ordnung, und nur wenige Fehler sind auszubessern. 

Nehmen wir ein Beispiel: 

: EXAKT 

." 2+2 

2 1 ( !, **BUG***) + . 



DEMO 

CR ." Hier demonstriert ACE" 

CR ." wie genau er rechnen kann 

CR CR CR 

EXAKT 



(Konnen Sie den Fehler schon erkennen? Rufen Sie bitte nicht gleich bei 
uns an ! ) 

Wenn Sie jetzt DEMO ausfuhren, werden Sie feststellen, das das Ergebnls 
falsch ist und Sie mussen den Fehler suchen . Dazu lassen Sie zunachst 
ei nma I EXAKT laufen: der Fehler- steckt in dieser Def inition, wie Sie sehen 
konnen . 

Schauen wir uns also die Definition von EXAKT noch einmal an, indem 
wir ei ngeben : 

LIST EXAKT 

LIST ist ein Wort, welches das folgende Wort nimmt und seine Definition 
auf dem Bildschirm anzeigt. Programmtechni sch nennt man dies LISTING. 
Dabei ist es gleichgultig, in we I c her Form Sie Ihre Definition eingegeben 
haben, LIST stellt es immer in einer ubersich 1 1 ichen Weise dar, die die 
logische Struktur annahernd erkennen I aft t . Es stellt alle Worter in Groft- 
buchstaben dar, auch wenn Sie sie in Kleinbuchstaben eingegeben haben. 
{ Erinnern Sie sich an Kapitel A: ACE kennt keinen Unterschied zwischen 
Groft-u .Klei nbuchstaben, solange es sich urn Computer-Wbrter handelt). 

Warum, kbnnten Sie sich fragen, mu(5 man in diesem Fall eingeben LIST 
EXAKT und nicht EXAKT LIST ? SchlieBlich wurde doch in den vorangegan- 
genen Kapiteln immer wieder bis zum UberdruR betont, da(3 man erst den 
Operanden (hier: EXAKT) eingeben und dann sagen soil, was mit i hm pas- 
si eren sol I (nam I ich L IST) . Nun, EXAKT LIST funktioniert einfach nicht: 

Der Computer findet zuerst EXAKT, fuhrt es aus und zeigt an: " 2+2 
= 3". Er findet danach LIST und weift nicht mehr, was er LISTen soil. 

Also: erst das Wort LIST sagt, daB das nachfolgende Wort nicht ausge- 
fuhrt, sondern gelistet werden soil. 

Die a I Igemeine Regel ist also, dafi Zahlen, oder Worter die Zahlen re- 
prasentieren, vorangestel 1 1 werden. Wenn aber ein Wort selbst behandelt 
werden soil, folgt es nach. 
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Beachten Sie bitte, dafi Sie nur Wbrter listen konnen, die Sie selbst defi- 
niert haben.Das hat nichts mit Geheimn iskra'merei zu tun, daft Sie mit 
LIST nicht an die von uns bereits fest eingebauten FORTH-Worter heran- 
kommen, sondern diese benutzen Techniken, die LIST nicht beherrscht. 
Wenn Sie es trotzdem versuchen, antwortet der Computer mit ERROR 13. 

Komrnen wir zuruck auf die Fehlersuche in EXAKT. Nach intensivem Stu- 
dium werden Sie feststellen, daB Sie irrtumlich '1 ( * * :;: BUG ::; :;!:;! ) ' eingege- 
ben haben anstatt '2', und deshalb muB EXAKT falsch arbeiten. 

Der nachste Schritt ist, EXAKT zu korrigieren. Sie brauchen dazu zwei 
neue Wdrter: EDIT und REDEFINE. Geben Sie bitte ein: 

EDIT EXAKT 

und Sie erhalten ein LISTING von EXAKT, wie vorher bei LIST. Diesmal 
aber i m E i ngabeberei ch unten am Bildschirm und mit einem Q davor. 

Das B i s t in Wirklichkeit die MARKE, nur aufierlich etwas verandert, 
und bedeutet wie ublich ' wollen Sie irgend etwas andern?' . Weil das 
Listing im E i ngabeberei ch stent, konnen Sie es behandeln, als hatten Sie 
es gerade erst eingegeben. Sie konnen also mit der MARKE auch jeden 
Punkt ansteuern und andern. 

Die MARKE lafit sich mit folgenden Tasten bewegen (wobei Sie dabei 
immer die SHIFT-Tast gedruckt halten mussen, sonst gibt's zusatzlichen 
Zahlensa lat ! ) : 

1 . ..und* bewegen sie vorwa rts und ruckwarts innerhalb emt ' r Zeile 

2. Mit + ur.d t konnen Sie die MARKE von Zeile zu Zeile bewegen. Dabei 

gilt folgendes: 

Steht die MARKE am Anfang der Zeile, wird er mit + an das Ende 
gebracht. Mit einem weiteren Drucken auf + geht sie an den Anfang 
der nachsten Zetle. Umgekehrt bewegt t die MARKE vom Zeilenende 
an den Anfang, bezw. vom Zeilenanfang an das Ende der vorhergehen- 
dtn Zei le . 

3. DELETE LINE (SHIFT und 1) Ibscht die Zeile, in der die MARKE steht, 
aber nicht den ganzen E i ngabebereich . 

4. ENTER spei chert wieder den ganzen Eingabebereich, gleichgijltig, wo 
die MARKE gerade steht. 

Urn zu sehen, wie das geht, wollen wir jetzt EXAKT korrigieren. Drucken 
Sie funfmal 4- , dann steht die MARKE am Ende der 3. Zeile, direkt hinter 
dem Kommentar. Mit DELETE konnen Sie jetzt Kommentar und 1 loschen. 
Tippen Sie jetzt die richtige Zahle '2' ein. Der Eingabespeicher hat jetzt 
dieses Bild: 

: EXAKT 

." 2+2 - " 
2 2 



Das genau wo I I ten Sie haben, also drucken Sie ENTER. 

Wenn Sie jetzt EXAKT laufen lassen, wird es richtig anzeigen: " 2 + 
2 - 4 ", aber mit DEMO werden Sie eine Uberraschung erleben . Es beh- 
hauptet namlich nach wie vor: " 2 + 2 - 3 ". VLIST zeigt Ihnen, woran 
das liegt. Es gibt namlich jetzt zwei Versionen von EXAKT im Worterbuch. 
Die altere Version steht ein bifichen weiter rechts, die neue hingegen 
ganz am Anfang. Tippen Sie nun EXAKT ein, sucht der Computer die Def i- 
nition in seinem Wortschatz, findet die erste und fuhrt sie (richtig) aus. 
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Wenn Sie jedoch DEMO eingeben, sucht der Computer zuerst DEMO und da- 
nach EXAKT unci findet prompt die a I te (falsche) Fassung. Hier hilft uns 
nun REDEFINE. Geben Sie ein: 

REDEFINE EXAKT 

Danach konnen Sie mit VLIST feststellen, daR nur noch ein EXAKT im Wor- 
terbuch steht. AuBerdem arbeiten jetzt beide Worter richtig. 

Vor REDEFINE sah unser Worterbuch so aus: 



: EXAKT 


( richt i ge 


Defini 


tion) 


: DEMO 


ti i t a 1 tern 


EXAKT 




: EXAKT 


feh lenhaf 


e Defi 


n i t ion 


wei tere W 


drter 







Mit REDEFINE wird zunachst das alte durch das neue EXAKT uberschrieben 






: EXAKT i-ic 


ht 


ige 


Def i n i t ion 


: DEMO mit 


a 


tern 


EXAKT 


: EXAKT al 




mit 


Feh 1 ern 


wei tens Worter 



Dann uberarbeitet REDEFINE das Worterbuch und veranlaBt, daR jedes 
welches das alte EXAKT benutzte, jetzt mit dem neuen arbeitet. i w nr t 



: DEMO mit neuem EXAKT 

: EXAKT neue, korrigierte Version 

wei ter^ Worter 



REDEFINE braucht zwei I nforma t ionen : 

Erstens das alte Wort , welches neu definiert werden 
geben Sie direkt nach REDEFINE ein. 



soil , 



Dessen Namen 



Zweitens mui3 REDEFINE wissen, wo die 
einfach: Es ist irmmer das neueste Wort 
gleich, welchen Namen dieses Wort hat. 
lig auch EXAKT, es konnte aber genau 



neue Version steht. Das ist ganz 

im Worterbuch. Dabei ist es ganz 

In unserem Beispiel ist es zufal- 

so gut ein Wort mit Namen BERN- 



HARD (und noch dazu mit einer ganz anderen Funktion) sein. 

Bei der Anwendung von REDEFINE ist also Vorsicht geboten : bevor Sie 
es einsetzen, ist es sehr wichtig nachzuprufen, ob ei n Wort , das Sie am 
Anfang des Worterbuches vermuten, auch wirklich dort steht. Sonst steht 
vielleicht ein vollig anderes Wort am Anfang, und REDEF INE macht lauter 
Unsinn. Die ERROR-Meldung kann man leicht einmal ubersehen. 
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Das klingt jetzt furchtbar komp I iziert, ist es aber in Wirklichkeit gar 
nicht. Pragen Sie sich nur die Arbeitsfolge gut ein: 

Sie wo Men zum Be i spiel ein Wort namens KLEMENS an der n . 

1. Tippen Sie EDIT KLEMENS und Taste ENTER 

2. Fugen Sie die notwendigen Anderungen ein 

3. Drucken Sie ENTER 

4. Stellen Sie fest, daR keine ERROR-Meldung vorhanden ist 

5. Tippen Sie REDEFINE KLEMENS ein 

Hier folgen noch einige Tips zur Fehlersuche: 

1. Manche Fehler finden Sie einfach durch das Durchsehen des Listings- 
Ein handschrif 1 1 iches Listing sol I ten Sie korrigieren, bevor Sie das 
Programm eintippen (getreu dem Grundsatz 1 am Anfang dieses Kapi- 
tels) . 

2. Versichern Sie sich, was Sie von jedem Wort erwarten und wie es ins- 
besondere auf den stack wirkt. FORTH ist so konzipiert, daR Sie mit 
einfachen Wortern anfangen und daraus weitere, leistungsfahigere Wor- 
ter konstruieren kdnnen. Haben Sie einmal die einfachen Wbrter korri- 
giert und getestet, kbnnen Sie sie unbesehen wei terverwenden . 

Kommentare sind hilfreich, denn ein Kommentar sagt halt " dieses 
Wort tut dieses und jenes", und Sie test en, ob dies auch wirklich ge- 
schieht . 

3. Arbeiten Sie wie der Computer und simulieren Sie mit Papier und Blei- 
stift den stack. Notieren Sie Schritt fur Schritt, wie der stack sich 
verandert, wahrend Sie die Definition durcharbei ten . Damit finden Sie 
meist schon die alltaglichen Fehler. 

4. Gerade wenn ein Wort falsche Ergebnisse erzeugt, sollten Sie besonders 
darauf achten: Sie konnen wichtige Ruckschlijsse auf das tatsachl iche 
Verhalten eines Programms daraus Ziehen, auch wenn es nicht das tut, 
was Sie eigentlich wo 1 1 ten . 

Fehlermeldungen sol I ten Sie anhand des Anhanges B analysieren und 
herausf inden, welche Ursache sie haben. So bedeutet z.B, ERROR 2, 
daG im stack zuwenig Zahlen stehen. Sie rnussen also entweder ver- 
ges sen haben, genugend Zahlen einzustellen, oder zuviele weggenommen 
haben . 

Es gibt noch ein Wort FORGET, das Def ini tionen aus dem Worterbuch Ibscht 
Aber Vorsicht: Das Wort ist ein wahrer Sprengsatz; es loscht nicht nur 
das Wort, das Sie dazu eintippen, sondern Alles, was Sie danach noch 
def iniert haben (was also bei VL IST noch davor erscheint ) . In unserem 
bisherigen Wortschatz wurde mit FORGET EXAKT auch das Wort DEMO ver- 
loren gehen. Uberlegen Sie also zweimal, bevor Sie FORGET einsetzen, 
es kbnnte sonst Dinge verschwinden lassen, die Sie noch gut brauchen 
konnen . 

Wegen der internen Arbeitsweise folgt auf FORGET nicht das sonst ub- 
liche OK. Machen Sie sich nichts daraus, wenn etwas schiefgeht, meldet 
sich schon ERROR. 

Zusammenfassung 

FORTH-Worter LIST, EDIT, REDEFINE, FORGET 
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Ubungen : 

1. Verwenden Sie REDEFINE, urn einen Kommentar in das Wort SQ aus dem 
vorigen Kapitel einzufugen. 

2. Angenommen , Sie wollen zwei Versionen von SQ gleichzeitig haben. Die 
eine SQ soil die errechnete Quadratzahl auf dem stack ablegen, die 
andere, narnlich SQ. soil es ausdrucken. Uberlegen Sie, wie Sie 
mit EDIT aus der bereits gespeicherten Version SQ die andere, SQ. 
definieren kbnnen. (Sie durfen dann aber nicht REDEFINE verwenden). 

3. An der n Sie unter Verwendung von EDIT und REDEFINE das Wort EXAKT 
in TEST und prufen Sie mit LIST nach, daft in DEMO jetzt der Name 
geandert ist. 

4. Geben Sie ein (es erfordert ein wenig Geduld): 

: EG 



2 3 4.... 


." A" 


." B" 


." C" 


." D" 


." E" 


." F" 


." G" 


." H" 


. 1 

." J" 


." K" 


." L" 


." M" 


." N" 


." 0" 


." P" 


." Q" 


." R" 


." 5" 



Mit LIST EG erhalten Sie ein Listing, das bei ' P* aufhort. LIST zei.gt 
narnlich maximal nur 18 Zeilen auf einmal an. Urn den Rest auch zu sehen, 
kdnnen Sie eine beliebige Taste betatigen. 

Sie werden auch sehen, daft die Zeilen 

12 3 4. . . . 
." A" 

geandert sind in 

12 3 4. 
. . . ." A" 

LIST zeigt nicht mehr als funf Worter in einer Zeile an und ein ." been- 
det eine Zeile, ebenso wie ein Kommentar, auch wenn sie weniger als 5 
Worter enthalt. 



EDIT arbei tet ahnlich. Das Wei terschal ten geht a I lerdings nur mit ENTER. 
Wenn Sie eine Gruppe von Zeilen bearbeitet haben, driicken Sie ENTER 
und der Computer zeigt die nachste Gruppe an. 
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KAPITEL 8 

WORTER, DIE ZAHLEN BEDEUTEN 

Nehmen Siean, es gabe eine Zahl, die sich nicht haufig andert, die Sie 
sich aber trotzdem nie merken konnen - bei sp iel swei se Ihr eigenes Alter. 

Nehmen wir als Beispiel einen alteren Herrn von 85, da lafit unter Um- 
standen das Gedachtnis schon etwas nach. Er kdnnte deshalb im ACE sein 
Alter speichern, indem er ein Wort dafur definiert: 

: ALTER 

85 

Das funktioniert naturlich. Fur solche Definitionen gibt es allerdings eine 
wesentlich elegantere Methode, und zwar 

85 CONSTANT ALTER 

Wit REDEFINE ALTER ersetzen Sie nun die bisherige Doppelpunktdef i n i tion . 
Jetzt konnen Sie m i t ALTER . das Alter, namlich ' 85 ' anzei gen . 

Der Vortei I dieser Methode besteht darin, dan eine Definition m i t 
CONSTANT weniger Speicherp I atz braucht als die Definition mit : und 
die definierte Zahl bei Bedarf auch schneller zum stack bringt. 

Allerdings ist es jetzt etwas prob lematisch , diese Zahl wiederum zu 
andern. An seinem Geburtstag mufite der alte Hem eingeben: 

86 CONSTANT ALTER 
REDEFINE ALTER 

Zum Gluck kommt das nur einmal im Jahr vor. Es gibt aber Falle, in 
denen solche Zahlen dfter zu andern sind. Nehmen Sie zum Beispiel den 
Benzinpreis. Seit dem Olschock 1973 ist er geklettert und hat sich zeit- 
weise so rasch verandert, dan die Tankwarte MLihe hatten, ihre Tanksau- 
len immer rechtzeitig umzustellen. 

Dann folgte die Energie-Sparwel I e, und die Preise veranderten sich 
- wenn auch nicht ganz so schnell - nach unlen. 

Fur solche Falle sind Konstante nicht gut geeignet. Deshalb gibt es 
eine andere Moglichkeit: 

129 VARIABLE BENZIN 

Damit wird ein Wort BENZIN definiert, das die Zahl 129 (den aktuellen 
Preis fur einen Liter Benzin in Pfennigen) speichert. Es ist zwar- etwas 
umstand I icher, diese Zahl wieder herzuholen, dafur konnen Sie sie aber 
einfach andern. BENZIN ist eine Variable . Die Zahl 129 ist ihr Wert . 

Urn diese Zahl auf dem stack abzulegen, verwendet man das Wort @ (man 
nennt es "holen"). Mit 

BENZIN @ 

wird also die Zahl 129 im stack gespeichert. (Kurz zur Erinnerung: Ware 
BENZIN mit CONSTANT definiert worden, hatten Sie das @ nicht ge- 
braucht). Mit . kann man den Wert jetzt naturlich anzeigen. 

Seit wir den Benzinpreis vor kurzem definiert haben, ist er schon wie- 
der auf 1,32 DM gestiegen, wir mLissen also den Wert von BENZIN auf 
132 andern. Das geschieht mit dem Wort ! (man sagt dazu "speichern") 

132 BENZIN ! 

t + 

neuer Wert zu verandernde Variable 

Jetzt kbnnen Sie mit 

BENZIN @ . 
den neuen Wert 132 anzeigen. 



36 36 

So bequem kbnnen Sie eine gespeicherte Zahl, die mit : oder 
CONSTANT definier! wurde, nicht an der n . Dazu brauchen Sie REDEF INE , 
und eine ganz wichtige E i nschrankung fur REDEFINE 1st die Tatsache, 
daft es nur Liber die Tastatur angewendet werden kann. Eine Varia- 
ble wie BENZIN dagegen kann auch durch Ereignisse im Programm 
selbst geandert werden. Das folgende Wort QBEN zum Beispiel bildet 
das Quadrat einer Zahl aus dem stack (indem es das Wort SQ aus 
Kapitel 6 verwendet ) , und speichert das Ergebnis nach BENZIN. 

: QBEN 

( K - ) 

( gibt BENZIN den Wert K*K) 

SQ BENZIN ! 

Mil REDEFINE kriegen Sie das nicht hin! 
Versuchen Sie jetzt folgendes: 

BENZIN 

Ich we if! nicht, was fur eine seltsame Zahl jetzt auf I hrem Bi Idschirm 
erscheint, es ist auf jeden Fall nicht der Benzinpreis (Gott sei Dank!). 
Tippen Sie nun diese Zahl, die auf dem B i I dsch i rm gezei gt w i rd , 
und nachfolgend @ und . ein, dann erhalten Sie den richtigen Wert 
von BENZIN. Irgendwie mu6 also diese merkwLirdige Zahl, die auf 
dem BMdschirm angezeigt wird, mit BENZIN etwas zu tun haben: Man 
nennt diese Zahl die Adresse der Variablen BENZIN, d.h. BENZIN 
hinterlaftt seine Adresse im stack und sagt, "wer meinen Wert 
brauch I , kann ihn hier jederzeit finden". Die Adresse sagt den 
Wortern @ und ! wo der Wert zu holen bezw. zu speichern ist. 

Dazu mussen wir ein wenig ins Detail gehen. Stellen Sie sich die Elek- 

tronik des Jupiter ACE als ein langes Regal mit 65536 Fac hern vor. 
A I I e Facher sind Idufend nummeriert mit den Nummern bis 65535, 
ihren Adressen , ahnlich Hausnummern in einer langen StraBe. 

In jedes Fach kann nun eine elektronische "Box" gestellt werden, 
die dann die Adresse des Fachs erhalt. Die Box speichert eine Zahl. 
Es gibt, entsprechend den unterschied I ichen elektron i schen Komponenten, 
verschiedene Arten von Boxen: 

| Eine ROM (-Read Only Memory ) - Box ist verriegelt. Sie kbnnen 
ihren Inhalt nicht verandern . Sie ist aber sozusagen durchsich- 
tig, so dafi Sie die Zahl feststellen kbnnen. Im ACE enthalten 

die Adressen bis 8191 ROM-Boxen. Sie enthalten die verschlus- 
selten Befehle, die FORTH zum Laufen bringen, und die fest ver- 
drahteten, immer vorhandenen FORTH-Worter . 

| Eine RAM (Random Access Memory) - Box ist nicht verriegelt. 
Sie kbnnen ihren Inhalt nicht nur sehen, sondern auch austau - 
schen. Die Adressen 8192 bis 16383 des ACE enthalten RAM-Boxen. 
Ihre eigenen FORTH-Worter zum Beispiel sowie das Fernsehbild 
sind in einer verschlusselten Form in solchen RAM-Spei chern nie- 
dergelegt . 

I Andere Facher wiederum sind leer, wie Bauplatze ohne Hauser, 
fur die schon Hausnummern vergeben sind. Im ACE sind die 
Adressen von 16384 bis 65535 leer, kbnnen aber durch AnschluR 
geeigneter Zusatzgerate aufgefullt werden. 

Eine wesentliche Einschrankung all dieser Boxen (wir sollten ab jetzt 
zutreffender sagen: Speicherp I atze ) ist, dafi die Zahlen, die dort ge- 
speichert werden sollen, zwischen und 255 I iegen mussen. Das ist 
so wichtig, dafi man die sen Zahlen wer ten sogar einen eigenen Namen 
gegeben hat: Eine Zahl zwischen und 255 heiftt Byte. Jeder Speicher- 
platz enthalt also ein Byte. 
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Eine normale Zahl kann auf dem ACE zwischen -32768 und 32767 liegen, 
ist also im allgemeinen durch ein Byte nicht darstel I bar. Die Codierung 
ist aber in Bytes moglich. ( Daruber erfahren Sie mehr in Kapitel 17). 
Damit kann jede Zahl in zwei benachbarten Speicherp I atzen abgelegt 
werden. So halt also z.B. BENZIN seinen Wert. Die Adresse von 

BENZIN bezeichnet den ersten der zwei Platze. 

Jetzt konnen wir also genau sagen , was S und ! tun: 

@ ( Adresse - Zahl ) 

Die Adresse wird aus dem stack geholt. Sie definiert zwei benachbar- 
te Speicherplatze, namlich den mit der Adresse und den darauffol gen- 
den . Der Inhalt dieser zwei Platze wird zu einer Zahl entschl ussel t , 
die im stack abgelegt wird. 

! ( Zahl - Adresse) 

Zahl und Adresse werden vom stack geholt. Die Zahl wird in zwei 
Bytes verschl ussel t und dann in den Speicherp I atz mit der angege- 
benen Adresse und dem nachfol genden Platz gespeichert. 

Zusammenfassung: 



Konstante, Variable 
Speicher, ROM, RAM 
FORTH-Worter CONSTANT VARIABLE @ ! 

Ubungen : 

1. Definieren Sie zwei nijtzliche Worter fur Ihren eigenen Gebrauch 
(sie sind nicht fest instal I iert ) . 

? ( Adresse - ) (genannt "Abfrage") 

zeigt die Zahl an, die in den beiden Speicherp I atzen unter der an- 
gegebenen Adresse ist. BENZIN ? z.B. soil den Wert von BENZIN 
anzeigen . 

+ ! ( Zahl, Adresse - ) (genannt "Speicher plus") 

soil ahnlich wirken wie ! , nur anstatt die alte Zahl durch eine 
neue aus dem stack zu ersetzen , soil ein Wert aus dem stack hinzu- 
addiert werden. Wenn Sie also z.B. fe ststellen, dafi Benzin schon 
wieder urn 6 Pfennige teurer geworden ist, sollen Sie eingeben 

6 BENZIN +! 

Versuchen Sie beide Worter selbst zu definieren und vergleichen 
Sie dann Ihre Losung mit der unseren. 



+ ! 

SWAP OVER @ + SWAP ! 



2. Berechnen Sie 2 (die "8. Potenz von 2" oder "2 achtmal mit sich 
selbst mul tipl iziert") . Wieviele verschiedene Bytes gibt es? 

Q 

Antwort: 2 
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Es scheint so, als ob die wichtigen Computerbegriffe in Potenzen 

von 2 ausgedruckt werden, ein Byte ist also nicht so seltsam, wie 

es zunachst den An sc he in hat. 

Berechnen Sie auch 2 1 J und 2 1 6 . Wo sind Ihnen diese Zahlen schon 

begegnet? Da ruber werden wir im Kapitel 17 mehr sehen. 

3. Sind 2 Bytes aus zwei Speicherplatzen gegeben, konnen Sie diese in 
folgender Weise zu einer Zahl umrechnen 

3.1. Nehmen Sie das Byte aus dem zweiten Platz, mu I t ipl tzieren Sie es 
und addieren das Byte aus dem ersten Platz hinzu. |mit 256 

3.2. Ist das Ergebnis 32768 oder groGer, dann Ziehen Sie 65536 davon 
ab ( die Zahl wird negativ ). 

Versuchen Sie umgekehrt eine Methode zu finden, mit der Sie eine Zahl 
in 2 Bytes zerlegen konnen. ( 3.2. umzukehren ist einfach; um 3.1. um- 
zukehren, diviaieren Sie durch 256, so sind Quotient und Rest die beiden 
Bytes. Denken Sie daran, daft die Zahlen zwischen -32768 und 32767 lie- 
gen mussen ) . 
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KAPITEL 9 



ENTSCHEIDUNGEN 



Die Wort er, die wir bisher neu entwickelt haben, spa re n dern Anwender 
zum einen Zeit: um eine Zahl zu quadrieren, braucht er nicht mehr 
DUP * zu tippen, sondern es genugt SQ. 

Zum anderen - und dies ist noch wich tiger - wird FORTH durch solche 
Def i ni t ionen immer leistungsf ahiger. 

Mit SQ kann es eine Zahl quadrieren, ohne daft sich der Anwender wei- 
ter darum kummern muR, wie dies geschieht. 

Diese Worter sind im Grunde einfache Auflistungen bereits 
derer Worter. Das Programm arbeitet sie Schritt 
zum Ende ab und stoppt dann. 

Wir brauchen aber in der Praxis Worter, d 
dingungen auch verschieden arbeiten, d.h 
wollen wir uns jetzt beschaf t i gen . 

Nehmen wir an, Ihr Kontostand bei der Bank sei in der Spitze des 
stack ( oder wie wir in Zukunft fachgerechter sagen wollen: im top of 
stack, abgekurzt T05 ) gespei chert : 

Der Bankstand ist positiv oder negativ, je nachdem, 
ben besitzen oder Ihr Konto uberzogen haben. Mit 
stand angezeigt. Hierbei sind Schulden durch ein 
Allerdings arbeitet die Bank nicht so, sondern sie yiui uen < 
Betrag des Kontos an ( also den Betrag ohne Vorzeichen) und erganzt 
je nach Situation SOLL oder HABEN. Einen solchen Vorgang kann man mit 
einem FluRdiagramm verdeut I ichen : 



bekannter, an- 
fur Schritt vom Anfang 

unter verschiedenen Be- 
Entscheidungen treffen. Damit 



ob Sie ein Gutha- 
wird der Konto- 
gekennzeichnet . 

bt den absoluten 



( start ) 



Absoluten Wert 
des Kontos 
anzeigen 




! 


' 






1 


f 


" HABEN " 
anzeigen 


. 


" SOLL " 
anzeigen 
















' 









( Stop J 
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Wie liest man ein solches Fluftdi agramm ? 

Sie beginnen bei " Start" und folgen den Pfeilen, bis Sie bei " Stop" 
angelangt sind. Treffen Sie dabei auf ein rau tenformiges Kastchen, ver- 
zweigt sich der Weg . Sie haben nun die Wan I , welchen Weg Sie folgen 
wollen, mussen also eine Entscheidung treffen. 

Teile dieses Fl uRdi agramms konnen Sie bereits in FORTH ubersetzen : 

wird zu 



( Start ) 



KONTO 
( Bankstand 



) 



Absoluten Wert 
des Kontos 
anzei gen 



wird zu 



ABS . 

(s.Kapitel 4) 



" HABEN" 
anzeigen 



HABEN 



" SOLL" 
anzei gen 



(stop) 



w i rd zu 



SOLL 



Bleibt jetzt noch das Problem, das Entscheidungskastchen zu ubersetzen. 
Hierfur brauchen Sie einige neue FORTH-Worter : IF, ELSE und THEN. 



( Dies sind ubrigens drei original englische Worter: 
THEN heiBt 'dann', ELSE heiBt 'sonst'). 



IF heiBt 



Doch zunachst einmal die Definition fur unser Wort KONTO: 

: KONTO 

( Bankstand - ) 
DUP ABS . 0< 
IF 

( Wenn Kontostand negativ) 

." SOLL " 
ELSE 

( Wenn Konto oder positiv) 

." Haben " 
THEN 



IF trifft eine Entscheidung zwischen zwei Wegen : 
nach ELSE, der andere von ELSE nach THEN. Be 
Wege wieder. 



der eine fuhrt von IF 
THEN treffen sich die 



Entscheidungsgrundlage fur IF ist die Zahl am TOS ( top of stack - 
Spitze des stack), welche anschlieBend verloren geht. Diese Zahl am TOS 
heiBt deshalb auch Bedingung. Ist die Bedingung nicht erfullt, folgt das 
Programm dem Weg ELSE - THEN; ist sie erfullt, dem Weg IF - ELSE. 
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Machen wir uns die Funktionen der drei Worter nochrnals klar: 

IF (=wenn) die Bedingung am T05 erfullt ist, folge diesem Weg 

(der mi t IF beginnt . 

ELSE (=sonst) d.h. wenn sie namlich nicht erfullt ist, folge diesem 

Weg (beginnend mit ELSE). 

THEN (=dann) fahre hier fort. 

Anmerkung: Wenn Sie mit der Compu tersprache BASIC vertraut sind, 
dann mussen Sie hier ein wenig umdenken. 

Im Allgemeinen w i rd ein eigenes Wort definiert, das die Bedingung 
pruft und danach auf dem stack eine '1'ablegt, wenn sie erfullt ist, 
und eine ' 0' , wenn sie nicht erfullt ist. Das Ergebnis einer solchen 
Prufung, namlich ' 1' oder ' 0' , nennt man einen MERKER (flag). IF 
benutzt dann diesen MERKER fur die weitere Entscheidung . 

Wir werden im folgenden mit einigen, Ihnen vielleicht nicht so vertrau- 
ten Begriffen arbeiten, die hier kurz erlautert werden sollen: 

- Ist eine Bedingung erfullt, so sagt man von ihr: sie ist "wahr". 
Der en tsprechende MERKER 1st die ' 1 ' . 

- Ist die Bedingung nicht erfullt, so heiRt sie "falsch". Der zuge- 
horige MERKER ist die '0'. 

Es ist vielleicht etwas verstand I icher, wenn Sie gedanklich das Wort 
"Bedingung 11 durch den Begriff "Behauptung" oder "Annahme" er- 

setzen. "Wahre" oder "falsche" Behauptungen sind in unserem Sprach- 
gebrauch ja durchaus gelaufig. 

Das Zeichen < bedeutet "kleiner als". Stellt sich einer vor Sie hin 
und behauptet "2 < 3", dann nicken Sie weise mit Ihrem Haupt und 
sagen : "Das ist wahr"; kame er aber an mit der Behauptung 

"3 < 2", wurden Sie voll EntrListung antworten: "Das ist falsch". 

Zuruck zu unserem Beispiel:Wir haben be re its eine solche Prufung ver- 

wendet, namlich 0< . Hier so II folgende Anweisung ausgefuhrt 

werden: "Nimm die oberste Zahl aus dem stack und stelle fest, ob 
sie negat i v ist" . 

Konto negativ bedeutet Annahme 0< trifft zu, 

danach: 1 auf den stack (= Aussage wahr!) 
und: IF geht den Weg IF - ELSE. 

Konto positiv bedeutet: Annahme 0< trifft nicht zu, 

danach: auf den stack (= Aussage falsch!) 
und: IF geht den Weg ELSE - THEN. 

Wir haben mit DUP angefangen, sonst ware nach der Anzeige des abso- 
luten Wertes der Kontostand verloren gegangen und der Vergleich 0< 

nicht mehr mbglich gewesen . 
Ge hen Sie KONTO nochrnals durch und zeichnen Sie die Entwicklung 
der Daten im stack auf. Tun Sie das ruhig zweimal , und zwar mit 
einem positiven und einem negativen Anfangswert. 
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FORTH kennt noch weitere Prufworter: 

= (K,Q, - Merker) nimmt die obersten beiden Zahlen vom stack und 
pruft, ob sie gleich sind. 



< (K,Q - Merker) nimmt die obersten beiden Zahlen vom stack und 
pruft, ob die zweite (K) kleiner ist als die oberste (Q). Die Bedin- 
gung ist nur erfullt ("wahr), wenn sie kleiner ist, nicht wenn 
beide Zahlen gleich sind. 

> (K, Q, - Merker) nimmt die obersten beiden Zahlen vom stack und 
pruft, ob die zweite (K) grofler ist als die erste (Q). 

0= (K - Merker) nimmt die oberste Zahl und pruft, ob sie ist. 

0< (K - Merker) nimmt die oberste Zahl und pruft, ob sie negativ ist 
(kleiner als 0, nicht selbst. 

0> (K - Merker) nimmt die oberste Zahl und pruft, ob sie positiv ist 
(grower als 0, nicht gleich 0. 

Immer gilt: Ein Prufwort hinterlaftt eine 1 im stack, wenn die Bedin- 
gung erfullt ( -wahr) , und eine 0, wenn die Bedingung nicht erfullt 
(=falsch) ist. 

Die Worter 0=, 0> , und 0< konnen naturlich auch durch -, > und 
< ersetzt werden . 

In einem En tscheidungsvorgang kann der ELSE-Zweig entfallen, wenn 
bei negati vem (falschem) Prufergebnis (im stack ist 0) nichts beson- 
deres geschehen sol I . 

Diesen Vorgang konnte man dann so i n terpret ieren : 

Wenn (IF) die Zahl auf dem stack wahr ist, folge dem IF-Weg. 

Dann (THEN) fahre in jedem Fall hier fort. 

Im folgenden Beispiel soil eine eingebene Zahl uberpruft werden. Hat 
Sie den Wert 13, wird sie durch 12 ersetzt. Bei anderen Werten pas- 
siert nichts 



DREIZEHN 
(K - Q) 
DUP 13 = 
IF 

DROP 12 
THEN 



Da fur andere Zahlen als 13 
keine Aktivitat notwendig ist, 
brauchen Sie auch ELSE nicht . 
Dazu das FluRdiagramm : 



f Start ) 




Nein 



durch 12 
ersetzen 



( Stop ) 
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Ein Wort, dessen Nutzen Sie mdgl icherweise erst spater entdecken, ist 
?DUP. 

?DUP dupliziert den TOS, aber nur dann, wenn er ungleich ist 
(K - K,K) wenn K ungleich 
(0 - 0) 

Nehmen Sie an, Sie brauchen ein Wort, das den TOS nur ausdruckt, 
wenn er nicht ist. Ohne ?DUP wurde das so aussehen 



DUP 

IF 

ELSE 

DROP 
THEN 



Mit ?DUP geht es viel einfacher 



?DUP 

IF 



THEN 

1 

Arbeiten Sie beide Worter durch und prufen Sie, was im stack geschieht 

Zusammenf assung : 

F lufidiagramme 

Pruf worter, MERKER "wahr" und "falsch" 

FORTH-WOrter: IF, ELSE, THEN, =, <, >, 0=, 0< , 0> , ?DUP 

Ubungen : 

1. Eine im stack wird durch 0= in 1 umgewandelt. Ebenso wird 1 
zu 0. Mit 0= kann man also ein Prufergebnis umkehren, aus 
"wahr" wird "falsch". Wo I I en Sie mit IF und THEN nur dann etwas 
tun, wenn das Ergebnis einer vorherigen Prijfung negativ 
( "falsch") war, 

dann drehen Sie es mit 0= um und verwenden IF, THEN ohne ELSE. 

2. Der Vergleich zweier Zahlen auf "grofier a Is" oder "kleiner als" 
wird "falsch", wenn die be i den Zahlen gleich sind . Def inieren Sie 
ein Prufwort 0> -, das gleiche und grbftere Zahlen als "wahr" ak- 
zeptiert . 
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3. Was geschieht, wenn Sie IF, THEN und ELSE aufierhalb einer Wortde- 
finition verwenden? Der Computer meldet ERROR 4. Er will IF verar- 
beiten, weifj zu diesem Zeitpunkt aber nicht, wo ELSE und THEN 
zu finden sind. Anders innerhalb einer Wortdef ini tion : Bei der Uber- 
nahme ins Worterbuch werden die verschiedenen Worter (als Adres- 
sen ) erkannt und gespeichert. 

4. Versuchen Sie, ein Wort mit IF, ELSE und THEN in der verkehrten 
Reihenfolge zu definieren. Machen Sie die Definition nicht zu 
grofi, es ware schade um die Muhe. Der Computer mag das 
namlich nicht und laRt mit ERROR 5 das ganze Wort verschwinden . 

5. Unter der Fakultat einer Zahl versteht man das Produkt 1*2*3* 

bis zu dieser Zahl. Die ubliche Schreibweise dafur ist die Zahl, ge- 
folgt von einem Ausrufungszeichen 

1 ! = 1 

2 ! - 1*2 - 2 

3! = 1*2*3 - 6 

4! = 1*2*3*4 - 24 

usw . 

Auch 0! wird als 1 definiert. Fur diese Festlegung gibt es 
durchaus mathematische Begrundungen . 

Geben Sie das Wort FAK ein: 

: FAK 

(n - n!) 

?DUP 

IF 

DUP 1- FAK * 
ELSE 

1 
THEN 



Wir verwenden hier eine ganz raffinierte Technik, die sogenannte Re- 
kursion, d.h. FAK benutzt sich selbst! Wir konnen so verfahren, 



2! =2 1 

3! - 3 * 2 
4! - 4 * 3 



ist. 

Um also die Fakultat einer Zahl zu berechnen, ermitteln wir 
zunachst die Fakultat der vorhergehenden Zahl und mul tipl izieren 
diese dann mit der Gegebenen . Das gleiche passiert mit den 
Fakultaten der kleineren Zahlen, bis erreicht ist. Da 0! = 1 ist, 
brauchen wir 

IF ELSE 1 THEN 



Eine allgemeine Form der Rekursion liegt vor, wenn mehrere 
Worter sich gegenseitig verwenden. FORTH ist zwar fur eine solche 
Anwendung nicht entwickelt, sie kann aber trotzdem durchgefuhrt 
werden. Das Problem liegt darin, daB das zuerst definierte Wort 
die nachfolgenden nicht benutzen kann. Sie sind im Worterbuch 
noch nicht definiert . Der Computer reagiert mit einem Q 
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Urn dies zu losen, mussen Sie mit REDEFINE arbeiten. Wollen Sie 
z.B. A und B definieren, die sich gegenseitig verwenden, mussen 
Sie 

1. ein Scheinwort (Dummy) A fur die Verwendung in B definieren 

: A 

2. B endgultig definieren. Diese Definition wurde zwar nicht richtig 

f unkt ion ieren , weil A ja ein Dummy ist, Sie konnen aber B rich- 
t i g eintasten . 

3. A endgultig eintasten 

4. Dann 

REDEFINE A 

eingeben, so daR das Dummy durch die richtige Definition er 
setzt wi rd . 



7. Das Vorzeichen einer Zahl soil "1" sein, wenn die Zahl positiv 
1st; "0" wenn sie Null, und "-1" wenn sie negativ ist. 

Schreiben Sie ein FORTH -Wort SGN , urn eine Zahl im stack durch 
diese Vorzeichenbedeu tung zu ersetzen . 
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KAPITEL 10 

WIEDERHOLUNG 

Bisher haben wir noch keine Moglichkeit kennengelernt, Teile eines 
definierten Wortes mehr als einmal zu benutzen. Der Computer arbeitet 
die Definition Schritt fur Schritt ab, Liberspringt unter dem EinfluB 
von IF, ELSE und THEN bestimmte Abschnitte und kommt zum Ende. 

Was ist zu tun, wenn z.B. eine unbekannte Anzahl von Zahlen zu- 
sammenaddiert werden soil? Eine Grenze muR eingebaut werden, damit 
der Computer weifS, wann er aufhoren soil. Sagen wir ihm also, er 
soil Zahlen solange addieren, bis er eine erkennt. Wir legen zu- 
nachst eine im stack ab und packen alle zu addierenden Zahlen 
obendrauf . 

Es sollen wenigstens zwei Zahlen addiert werden: Wir addieren die 
ersten beiden Zahlen zusammen und prufen noch, ob die inzwischen 
schon auf den zweiten Platz nachgeruckt ist. Ist dies der Fall, mussen 
wir sie noch loswerden und sind fertig; andernfalls addieren wir wei- 
ter. Im Flufjdiagramm sieht das so aus: 




( Stop ) 



Dazu das FORTH-Wort: 



( addiert Zahlen im stack zusammen bis auftritt) 
BEGIN 

+ ( Oder nachste Zahl , aufgel aufene Summe) 

OVER 0= 
UNTIL 
SWAP DROP 
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Hier ist UNTIL das en tscheidende Wort. Sie konnen zwischen BEGIN 
und UNTIL einfugen, was Sie wollen, es mufi abet- zum SchlufJ immer 
eine Bedingung ( wahr oder falsch) auf dem stack abgelegt sein, auf 
Grund der UN TIL entscheiden kann. Ist die Bedingung wahr, dann 
wird die Wiederholung beendet und der Computer bearbeitet den 
nachfolgenden Abschnitt. Ist sie falsch, spring! das Programm zuruck 
zu BEGIN 



BEGIN 




jnserem Wort ++ aus? Bei BEGIN 

jfene Summe und die nachste zu ad- 



w i rd un terste lit, 



die dds Programm be- 
wenn Sie nicht mi n- 
i werden diesen Feh- 



Wi 



jnd 



Wie sieht das be 

daft der stack die bisher aufgelau 

dierende Zahl en thai t . Erst danach folgt die 

endet, oder eine weitere Zahl. (Das geht schief, 

destens zwei Zahlen ungleich vorratig haben 

ler spater beheben). 

+ addiert die bei den oberen Zahlen und I egt 

OVER kopiert die nachste Zahl an die Spi tze 

prufen, ob es die ist. Wir verwenden hiei 

gleich das Prufergebnis "falsch" bringt 

dem stack ablegt. Dadu re h wird UNTIL 

verzweigen, und die nachste Addition kann folgen. Wird die Zahl 

erkannt, geht dab Programm welter, wirf t die weg und laftt nun 

noch die Summe im stack stehen . 

Ein Nachteil von UNTIL ist sicher, daB der Computer den Abschnitt 
zwischen BEGIN und UNTIL wen igs tens einmal durchlaufen muB . Das 
ist auch einleuchtend, denn bei BEGIN ist ja noch keine Pr ufung und 
Entscheidung mbglich. 

Es gibt aber eine Mbglichkeit, dieses Problem zu umgehen, indem 
man die Worter WHILE und REPEAT 

Schleife hat dann die Form 



Summe am TOS ab 
konnen mil 
r 0=, weil eine Zahl un 
jnd den MERKER 
veran I aft t , zu 



auf 
BEGIN zu 



statt UNTIL verwendet. 



BEGIN 



WHILE 

I 

I 
REPEAT 



Hier entscheidet WHILE, 
wird {das ist der Fall, 
findet), oder ob die Schl< 



ob der Abschnitt bis REPEAT durchlaufen 

wenn es auf dem stack die Aussage "wahr" 
ife verlassen wird. 
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Es gibt zwei wesentliche Unterschiede zwischen UNTIL und WHILE 

REPEAT: 

1. UNTIL beendet die Wiederholung, wenn es die Aussage "wahr" findet, 
WHILE beendet, wenn es "falsch" erkennt. 

2. Bei Verwendung von WHILE gibt es einen Programmabschnitt (WHILE- 
REPEAT), der- nie durchlaufen werden mul3, wenn WHILE ganz zu 
Anfang die Aussage "falsch" erkennt. 

Dam i t kommeri wir zu einer besseren Version von ++ : 



( addiert Zahlen i m stack bis erkannt wird) 
( als aufgelaufene Summe bei Anfang) 
BEGIN 

( aktuelle aufgelaufene Summe, nachste zu add.Zahl) 

SWAP ?DUP 
WHILE 

+ 
REPEAT 



Sofort nach BEGIN steht die aufgelaufene Summe im TOS, die nachste 
zu addierende Zahl folgt dirx-kt da nach. Wir bring en sie in den TOS, . 
prufen, ob sie ist und addieren sie, wenn sie nicht ist (d.h. wenn 
die Aussage "wahr" ist). 

Ist sie 0, gehen wir- zum Ende. ?DUP ist dafur ein sehr nutzliches 
Wort . 

+++ verha I t sich auch ricbtig, wenn nur eine oder gar keine zu add ie- 
rende Zahl im stack ist. Prufen Sie es nach! 



Die beiden Arten, die mit BEG IN anfangen, wiederholen eine Schleife 
solange, bis eine ei nprogramm ierte Bedingung eintritt, die das Ende 
veranlaRt. Es gibt noch einige andere Arten von Schleifen. Sie 
beginnen mit dem Wort DO, durchlaufen die Schleife mit einer vorgege- 
benen Haufigkeit und verwenden dazu einen Zahler. 

Die einfachste Form ist 

. ..DO LOOP 

als Bestandteil einer Wortdefinition. 
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DO nimmt zwei Zahlen vom stack, die bestimmen, wie oft die Schleife 
durchlaufen wird. Die oberste Zahl bestimmt, wo der Zahler beginnt, 
die zweite Zahl setzt die Grenze: Die Schleife ist beendet, wenn der 
Zahler diese Zahl erreicht hat. 

In der Folge 

6 3 DO LOOP 

wird der Bereich zwischen DO und LOOP 3 mal durchlaufen. Der Zahler 

beginnt bei 3, hat in der zweiten Runde den Wert 4 und in der dritten 

Runde 5. Beachten Sie, daR der Zahler die Grenze nicht erreicht, sie 

mul3 immer um 1 hbher sein als der Endwert, den der Zahler 

erreichen sol I . LOOP zahl t 1 zum Zahler hinzu, pruft, ob der 

Endwert erreicht ist und springt zuruck zu DO, wenn dies nicht der 
Fall ist. 

Den "Zahlerstand" konnen Sie erfahren und auf dem stack ablegen, 
wenn Sie das Wort I verwenden. 

Wir definieren jetzt das Wort NR, das uns alie Zahlenwerte, die der 
Zahler wahrend der Ausfiihrung hat, anzeigt: 

: NR 

( Grenze - ) 



DO 

I . ( druckt den Zahler aus) 
LOOP 

3 NR 
zeigt an : 0, 1 , 2 

1 NR 

zei gt nur an . 

Versuchen Sie NR und -1 NR . Sie erhalten in beiden Fallen die An- 
zeige 0. Daraus lassen sich zwei Regeln ableiten: 

1 . Wie bei BEGIN. . .UNTIL wird auch bei DO. . .LOOP die Schleife min- 
destens einmal du re hlau fen, gleichgultig wie Anfangs- und Endwert 
heiften (deshalb zeigt NR auch die an). 

2. LOOP beendet den Rucksprung, wenn der Zahler (nach der Addition 
von 1 ) g lei ch oder groBer als der Endwert geworden ist. 

Fur -1 NR heiftt das: Der Endwert ist -1, der Zahler geht nach 
der Anzeige ' 0' auf 1, ist also groRer als -1, das Programm wird 
beendet . 

LOOP erhoht den Zahler immer um 1. Es gibt aber eine Variante +LOOP, 
die die oberste Zahl aus dem stack nimmt und zum Zahler addiert 
(diese Zahl heiftt step = Schritt). Die Regeln 1 und 2 gel ten auch hier, 
es sei denn, der step ist negativ. Dann namlich hort +LOOP auf, 
wenn der Zahler gleich oder kleiner als der Endwert ist. GEben Sie ein: 

: COUNTDOWN 

-1 10 
DO 

I . -1 
+ LOOP 
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wurde COUNTDOWN 



Ohne die Sonderregel ung fur einen negativen step 
nur 10 anzeigen und dann aufhdren. 

Es konnen mehrere dieser Schleifen ineinander verschachtet t werdei i . 
Sie laufen dann gleichzeitig ab, wie im folgenden Wort STERNE. Diest- 
Wort gibt ein Dreieck aus Sternen aus. Mit Rucksicht auf die Arbeit^ 
weise von LOOP legen wir noch eine 1 zu der eingegebenen Zahl zu. 



STERNE 

( Anzahl der Reihen 

CR 1+ 1 

DO 

I 

DO 

ii ; ! ; 1 1 

LOOP 
CR 
LOOP 



Jetzt laufen zwei Zahler zugleich, ein langsamer fur die Reihen und 
ein schneller fur die Sterne in jeder Reihe. Es stellt sich die Frage, 
welchen Wert I in diesem Fall darstel 1 1 . Generell gift: Laufen gleich- 
zeitig zwei Oder mehr Schleifen ab, entspricht I dem Zahler der inner- 
sten oder "kleinsten" Schleife. Das ist die Schleife, die in ei nem L i s t — 
i ng am 
kann 



weitesten rechts steht. Der Zahler 
it einem Wort J dargestellt werden : 



der nachstgroBeren Schleife 



STERNE 

( Zahl der Reihen) 

CR 1+ 1 
DO 



DO 



LOOP 
CR 



Stern- 
zahl- 
Sch leife 



LOOP 



Reihen- 

zahl- 

Schleife 



Nur Rei hensch leife 
Beide Schleifen 



Nur Rei hensch leife 



Bei Ausfuhrung der Stern-Zahlschleife ( z . B . in der Zeile . " *") sind 
beide Schleifen aktiv. Hier wurde I den Stern-Zahler und J den Reihen- 
zahler ausgeben. In der ubrigen Reihen-Zahlschleife (also in den Rei- 
hen I und CR) ist nur der Reihenzahler aktiv. I reprasen t iert den 
Reihenzahler, J enthalt Unsinn. I kann also in verse hiedenen Pro- 
grammteilen durchaus verschiedene Zahler wiedergeben. 

Ein anderes Wort I 1 legt den Grenzwert der innersten Schleife auf 
dem stack ab . 

Beachten Sie bitte, daft I, I' und J nur in der Wortdef in i t ion ver- 
wendet werden konnen, die auch das ihnen en tsprechende DO. . .LOOP 
entha 1 1 . 



Alle die Strukturen, die Sie im Kapitel 10 kennengelernt haben, konnen 
Sie verwenden, so oft Sie wollen. Es gibt nur eine £ inschrankung : 

Wenn sie sich uberschneiden, mussen sie ineinander verschachtel t 
werden . 
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Lassen Sie uns an den folgenden Beispielen darstellen, in welcher Form 
Do. . .LOOP und I F . . .ELSE . . .THEN in einem Programm verwendet werden 
konnen : 



Sie konnen vollig getrennt voneinander laufen 



en t weder 



DO 
LOOP 

IF 
ELSE 

THEN 



Oder 

IF 

ELSE 

THEN 

DO 

LOOP 

2. IF. ..ELSE. ..THEN eingesch lossen in DO . . . LOOP 

DO 
IF 
ELSE 

THEN 
LOOP 



3. DO. ..LOOP eingeschlossen in I F . . . ELSE . . . THEN 
en t weder I F 

DO 
LOOP 
ELSE 
THEN 



oder 



IF 
ELSE 

DO 

LOOP 
THEN 



IF. . .ELSE. . .THEN hat zwei Bereiche. DO... LOOP kann immer nur in 
einem Bereich vorkommen. Es ist also verboten zu schreiben 



IF 

DO 
ELSE 

LOOP 
THEN 



das ist falsch! 



Wenn Sie nicht sicher sind, ob Sie sich bei der Definition eines 

Wortes an die Spielregeln gehalten haben oder nicht: Probieren Sie 

das Wort aus und sehen Sie, was passiert. Der Computer meldet 

ERROR 5 - und vergifit das Wort einfach. 

Jetzt folgen zwei Worter, mit denen Sie einen Programmab I auf vorzeitig 
verlassen konnen: LEAVE, urn aus DO. ..LOOP herauszukommen, und EXIT 
urn gleich ein ganzes Wort zu verlassen. 

LEAVE darf nur innerhalb DO... LOOP (oder DO...+LOOP) verwendet wer- 
den. Es geht nicht direkt heraus, sondern setzt den Sch I eifenzah I er 
auf den Endwert, so daft LOOP beim nachsten Durchgang die Schleife 
beenden muR. 
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EXIT kann uberall eingesetzt werden, auBer in DO. ..LOOP (oder 00... 
+L00P). Gleichgul tig, welche Bedeutung das Wort hat, in dem EXIT 
vorkommt, der Computer verlafit es sofort und geht weiter zum nachsten 
Wort . 

Schlieftlich folgen noch zwei Worter, die sehr nah mit I, I 1 und J ver- 
wandt sind. Urn ihre Bedeutung zu verstehen, mussen Sie wissen, daB 
es i m Computer in Wirklichkeit zwei stacks gibt: Den einen, den Sie 
langst kennen- und I iebengelernt haben (der DATA-stack), und einen 
zweiten, welcher RETURN -stack heiftt. Wird ein FORTH-Wort ausgefuhrt, 
muB der Computer wissen, wohin er nach der Ausfuhrung zuruckkehren 
soil (=RETURN). Dies gelingt ihm mit Hilfe der Rucksprung-Adresse 
( return-adress) , die im RETURN-stack gespeichert ist. 

Benutzt nun ein Wort ein zweites, dieses ein drittes und das Dritte 
wiederum ein viertes, dann stapelt der Computer fein sauberlich alle 
Adressen ubereinander und findet wieder seinen Weg zuruck zum ersten 
Wort . 

Dieser RETURN-stack ist aber nicht ausschl ieR I ich fur den interen 
Gebrauch des Computers bestimmt, sondern Sie konnen ihn auch selbst 
benutzen, urn vorubergehend Zahlen aus dem DATA-stack abzulegen. 

Dazu brauchen Sie die Worter >R und R> . 

2R (Zahl im DATA-stack-) wird gesprochen "nach R" und ubertragt 
eine Zahl von der Spitze des DATA-stack an die Spitze des RETURN- 
stack . 

R>(- Zahl aus dem RETURN-stack) heiftt "R von" und ist die Umkehr- 
ung von >R . Es ubertragt eine Zahl aus dem RETURN-stack in den DA- 
TAstack. 

Da der RETURN-stack normalerweise fur Rucksprung-Adressen verwendet 
wird, muB die Anzahl der verwendeten >R und R> innerhalb einer Wort- 
definition ausgeglichen sein. Sie konnen zwischen >R und R> auch nicht 
EXIT verwenden, da dann im RETURN-stack keine gultige Adresse steht. 

Was haben nun diese beiden mi t den Wortern I , I ' und J zu tun? 
DO-Schleifen legen ihren Zahler und ihren Grenzwert ebenfalls im RE- 
TURN-stack ab (wobei der Zahler ganz oben ist). I, I 1 und J machen 
nun nichts anderes, als eine Kopie des jeweiligen Platzes vom RE TURN- 
stack im DATA-stack abzulegen: I kopiert den obersten Wert, I' den 
zweiten, und J den dritten von oben. Sie konnen also damit die Zahlen. 
wieder zuruckkopieren, die Sie mit >R auf dem RETURN-stack abgelegt 
haben. Es bedeutet aber weiterhin, daft >R und R> auch innerhalb 
einer DO-Schleife ausgeglichen sein mussen. 

Zusammenfassung: 

BEGIN UNTIL 

BEG IN WH I LE REPEAT 

DO LOOP 

DO +L00P 

LEAVE zum vorzei tigen AbschluB einer DO. . .LOOP-Schleife 
EXIT zum Verlassen eines Wortes 
I, I', J, >R, R> 
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Ubungen : 

1. Mi t dem folgenden Wort PRIM kann man prCifen, ob eine Zahl Prim- 
zahl ist oder nicht (eine Primzahl lafit sich ohne Rest nur durch 
1 und sich selbst teilen. 2, 3 und sind sind Primzahlen, 4 ist keine 
denn sie ist ohne Rest durch 2 teilbar). 

PRIM laBt die zu prijfende Zahl, den Operanden, auf dem stack 
zuruck. Davor steht noch eine andere Zahl, die den Wert hat, 
wenn der Operand eine Primzahl war. 

: PRIM 

( Zahl - Zahl, fur Primzahl) 

2 
BEGIN 

( Zahl, Zahl durch die geteilt wird) 

OVER OVER DUP * < 0= 
WHILE 

OVER OVER MOD 0= 

IF 

EXIT 

THEN 

1 + 
REPEAT 
DROP 



Bei BEGIN enthalt der stack die Zahl selbst an zweiter Stelle und 
daruber einen Prob ier-Di v i sor, durch den sie getei I t wird. Der 
Divisor beginnt mit 2 und wird in jedem Durchlauf urn 1 erhoht. 
Es genugt aber, diesen Vorgang nur bis zur Quadrat wurzel der 
untersuchten Zahl fortzusetzen (Warum?) 

Auf diese Weise lauft das Programm ab, solange das Quadrat 
des Probier-Di v i sors noch kleiner ist als die Zahl selbst. Sind 
alle moglichen Divisoren ausprobiert worden und keiner hat die 
Bedingung erfullt, entfernen wir den letzten und stellen die in 
den stack, da wir jetzt wissen, daB die Zahl eine Primzahl ist. 

Lafit sich andererseits die Zahl teilen, verlassen wir das 
Programm direkt mit EXIT. Im stack bleibt die Zahl und der 
letzte Divisor zuruck. 

Entwerfen Sie ein Wort PRIM?, das nach der Prufung im stack 
eine 1 (wahr) fur eine gefundene Primzahl, und eine (falsch) 
fur eine dividierbare Zahl abstellt. (Hinweis: PRIM sollten Sie 
natijrlich dafijr verwenden). 

Hier haben Sie ein Wort PRIMES, das alle Primzahlen bis zu einem 
ei nzugebenden Grenzwert ermittelt und anzeigt. Es verwendet Ihr 
PRIM? 

: PRIMES 

( Grenzwert - ) 

1 

DO 

I PRIM? 
IF 

I . 
THEN 

LOOP 
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2. Eine Zahl potenzieren ("zur Potenz erheben") bedeutet, sie mehrmals 
mit sich selbst zu mul tip! izieren . Wie oft das geschehen soil, wird 
durch die Potenz angegeben. Soil beispiel sweise eine Zahl zur 2. Po- 
tenz erhoben werden, heiftt das, dafi sie mit sich selbst zu multipli- 
zieren ist: 

6 zur 2. Potenz = 6 * 6 = 36 

6 zur 3. Potenz =6*6*6 = 21 6 

Norma lerwei se wird dieser Sachverhalt in der Form 

6 3 •*- Exponent 
Basis 

geschrieben, eine weit verbreitete Schreibweise ist aber auch 

6+3. 

Entwickeln Sie ein FORTH-Wort t , das eine Zahl potenziert 
( Zahl, Potenz - Ergebnis). 

Was tut Ihr t , wenn die Potenz 1 oder ist? Eine Zahl zur I. Po- 
tenz ist die Zahl selbst, und es gibt gute mathemat ische GrLinde 
zu sagen, dafi eine Zahl zur Potenz = 1 ist. Bringen Sie Ihr 
tdazu, alles genau zu tun, und vergleichen Sie es dann mit unserem: 

: t 

( Zahl, Potenz - Zahl zur Potenz erhoben) 

1 SWAP ?DUP 

IF 



DO 

OVER * 

LOOP 
THEN 
SWAP DROP 



Beachten Sie, wie mit ?DUP, IF und THEN die DO. . .LOOP-Schleife 
ubergangen|wi rd, wenn Sie sie nicht brauchen. 

3. Mit dem folgenden un wahrschei n I ich nutzlichen Wort konnen Sie Ihren 
Computer auf ewige Zeiten beschaftigen (es sei denn, Sie unterbre- 
chen ihn mit BREAK). 

Verwenden Sie dafur BEGIN und UNTIL. 

: OED 

." ER LAEUFT" 
BEGIN 

." UND LAEUFT" 



UNTIL 
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KAPITEL 11 

TONE UND MUSIK 

Der Jupiter ACE hat einen eingebauten Lau tsprecher, m i t dem Sie 
Ihre Wbrter bei Bedarf durch Tone oder Gerausche untermalen konnen. 
Das Wort , das Sie dazu brauchen, ist BEEP. Es erwartet zwei Zahlen 
auf dem stack. D e oberste Zahl definiert die Lange des Tons in 
Mi I I i sekunden , die zweite bestimmt die Tonhbhe. (Technisch ausge- 
drLickt handelt es sich dabei urn die Dauer einer Schwingung in 
Einheiten von 8 us). 

Sie werden es vermu tlich vorziehen, die folgende Tabelle zu benutzen, 
die die Tonhbhen fur 7 Oktaven in Halbtonschritten darstel 1 1 : 



c 


191 1 


956 


478 


239 


1 19 


60 


30 


B 


2025 


1012 


506 


253 


127 


63 


32 


B b A # 


2145 


1073 


536 


268 


134 


67 


34 


A 


2273 


1 136 


568 


284 


142 


71 


36 


A G 


2408 


1204 


602 


301 


150 


75 


38 


G 


2551 


1276 


638 


319 


159 


80 


40 


F # G b 


2703 


1351 


676 


338 


169 


84 


42 


F 


2863 


1432 


716 


358 


179 


89 


45 


E 


3034 


1517 


758 


379 


190 


95 


47 


E b D # 


3214 


1607 


804 


402 


201 


100 


50 


D 


3405 


1703 


851 


426 


213 


106 


53 


C # D b 


3608 


1804 


902 


451 


225 


1 13 


56 


c 


3822 


191 1 


956 


478 


239 


1 19 


60 



Als Faustregel laftt sich sagen: Je kleiner die Zahl, desto hoher der 
Ton . 

Wollen Sie aber Musik machen , dann brauchen Sie ein wenig mehr Auf- 
wand. Verfolgen Sie das an dem Lied " Alle Vogel sind schon da". 

Fur jede Note mijssen Tonhohe und Dauer festgelegt werden. Slatt 

mit Mi I I isekunden zu arbeiten, ist es besser, die Dauer der kurzesten 

Note einmal als Variable zu definieren und alle anderen Tonlangen 
als Vielfache davon zu bestimmen. 

Die kurzeste Tondauer in unserem Lied ist eine Achtel-Note. Wir defi- 
n ieren : 

200 VARIABLE ACHTEL 

: N 

( Tonhohen-Zahl , Lange in Achteln) 
ACHTEL @ * BEEP 
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Das "kleine c" a!s Viertelnote mil Punkt (drei Achtel lang) ist jetzt 
a! so 

478 3 N 

Der Name N wurde bewuftt kurz gewahlt, da er ja oft eingegeben wer- 
den muB. Durch die Verwendung von ACHTEL haben wir den zusatzlichen 
Vortei I , daft die ganze Melodie schnelter oder fangsamer gespielt werden 
kann, einfach indem wir den Wert von ACHTEL andern . Der Wert 200 
fur die Variable ACHTEL ist schon sehr lang. 

In unserem Lied kommen mehrere W i ederhol ungen vor. Es besteht aus 
zwei gleichen Elementen 



il 1 




1c Vo - grl sind sdion da 



rd definiert durih 



TE I L 1 

( alle Vow I sind 



hon da) 



478 6 N 379 2 N 319 4 N 

239 4 N 284 4 N 239 2 N 

284 2 N 319 8 N 358 6 N 

319 2 N 379 4 N 4 78 4 N 

426 8 N 478 8 N 



Teil 2 




i rd def i n i er t durr h 

: TEIL2 

( Singer 



ifen. 



) 



319 4 N 319 4 N 358 4 N 
358 4 N 379 4 N 319 2 N 
379 2 N 426 8 N 



Stellen wir nun das ganze Lied zusamrrien 



ALLE 

TEIL1 TEIL2 

TEIL2 TEIL1 



Zusammenfassung: 



FORTH-Wort BEEP 
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Ubungen: 

1. Anstatt die Tonhbhe aus der Tabelle zu bestimmen, kann man sie 

auch in Beziehung zu einer Art Standard-Note setzen und sie 

berechnen. Dazu muB man berucksicht i gen , daft die Noten in einem 
logari thmi schen Verhaltnis zueinander stehen. 

Um also eine Note um eine Oktave zu erhohen, muB die Tonhbhen- 
Zahl mit 1/2 multipliziert werden. Sie kbnnen dies aus der 
Tabelle deutlich erkennen . Fur die Erhbhung um einen Halbton 
muB die Tonhbhe mit der zwblften Wurzel aus 1/2 mu I i t ip I iziert 
werden (eine Oktave umfaBt 12 Halbtbne). Das ist die Zahl 
0.94387431 oder naherungswei se 17843/18904. 

Dam i t kommen wir zu einer Met hod e zur Berechnung von Tonhbhen- 
Zahlen aus entsprechenden Halbtonen: 

a) Beginnen Sie mit einer ziemlich tiefen Note mit bekannter Hbhen 
zahl, z.B. 3822 fur das tiefste C in der Tabelle 

b) Ermitteln Sie die Halbtbne in Form ganzer Oktaven plus "uber- 
hangender" Halbtbne. (Die Note "G" mit der Hbhenzahl 80 liegt 
zum Beispiel um 2 Oktaven und 7 Halbtbne uber dem kleinen 
"c"). 

c) Mul tipl izieren Sie die Basiszahl fur jeden Halbton mit 17843/18904 

und dividieren Sie das Ergebnis fur jede Oktave durch 2. 
Damit erhalten Sie die gewlinschte Tonhbhen-Zahl . 

Im folgenden Wort SEMI ist diese Methode realisiert. Sie nimmt 
aus dem stack die Tonhbhe in Halbtonen uber dem kleinen c, und 
stellt die Hohen-Zahl fur BEEP zuruck. 

: SEMI 

( Halbtbne uber kleinem c - Tonhbhe) 

36 + ( Halbtbne uber dem tiefen C) 

12 /MOD SWAP ( Zahl Oktaven, Zahl Halbtbne) 

3822 SWAP ?DUP 

IF 

( Multiplikation mit 17843/18904 f. jeden Halbton) 



DO 

17843 18904 */ 
LOOP 
THEN 

SWAP ?DUP 
IF 
{ Division durch 2 fur jede Oktave) 

DO 

2 / 
LOOP 
THEN 



Sie kbnnen nun SEMI mit BEEP testen . Wegen der vielen Rechenarbeit 
entsteht vor den hbheren Noten innerhalb einer Oktave eine deutlich 
langere PauFe als etwa vor C. In Kapitel 20 werden wir eine Methode 
kennenlernen, wie wir Potenzen von 17843/18904 getrennt speichern kon- 
nen , so dafB fur die uberhangenden Halbtbne nur eine Multiplikation 
und eine Division erforderlich wird. 
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2. Versuchen Sie BEEP mit kleinem Operanden. Der kleinste Tonhohen- 
wert, der noch einen horbaren Ton erzeugt, ist 7. Bei noch kleine- 
ren Werten spielt der Computer nicht mehr mit und erzeugt ein end- 
loses Knackgerausch . 

Die kurzeste Notendauer, die Sie benutzen konnen, hangt von der 
Tonhohe ab: Ist die Lange geringer als 1/125 des Hohenwerts, dann 
erzeugt der Computer einen Dauerton in richtiger Hohe. Bevor dieser 
Fall eintritt, mussen die Noten aber schon extrem kurz sein. 
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KAPITEL 12 

DER ZEICHENSATZ 

Bisher hatten wir es nur mit Buchstaben , Ziffern, Satz- und einigen 
Sonderzeichen zu tun, die auch der Computer kennt. Jedes von ihnen 
wird im ACE durch eine Zahl zwischen und 255 dargestellt. Man 
nennt diese Zahl den ASCII Code eines Zeichens ( ASCII bedeutet 
"American Standard Code for Information Interchange", auf Deutsch: 
Amerikanischer Standardcode fur I nformationsaustausch ) , und der Com- 
puter erkennt alle Zeichen nur in Form ihrer Codes. 

Wollen Sie den ganzen Zeichenvorrat sehen , dann definieren Sie ein 
Wort 

: CHAR 

( zeigt den Zeichensatz an) 

256 

DO 

I EMIT 
LOOP 

EMIT nimmt einen ASCII Code aus dem stack und stellt das dazugehori- 
ge Zeichen auf dem Bildschirm dar. Sie konnen sofort zwei Gruppen 
unterscheiden : die Zeichen mit den Codes bis 128 sind weiB auf 
schwarz, und die mit 128 bis 255 sind schwarz auf weifi (die sogenann- 
te "Invers Video"-Darstel lung ) . Ansonsten sind sie gleich. 

Der Buchstabe A hat in weifl-auf-schwarz-Darstel I ung den ASCII Code 
65, und in schwarz-auf-wei B-Darstel I ung 65 + 128 = 193. 

Die Zeichen mit den ASCII Codes 32 bis 127 sind auf der ganzen Welt 
gleich (eben standardi siert ) ; wobei es nur geringfugige Unterschiede 
bei Sonderzeichen gibt, die nicht in jedem Land verwendet werden (z.B. 
das Zeichen £ ) 

Die Zeichen mit Code bis 31 sind nicht einheitlich festgelegt. In 
ASCII werden sie als Steuerzeichen eingesetzt, die zwar nicht angezeigt 
werden konnen, aber bestimmte Funktionen erfullen. Der ACE benutzt 
beispielsweise ASCII 13 als "Rucklauf", die MARKE geht von einer Zeile 
zum linken Rand der Folgezeile. Alle ubrigen werden al s "Graphic-Zei- 
chen" verwendet, die Ihnen fur spezielle Anwendungen zur Verfijgung 
stehen . 

Die Zeichen sind Muster aus schwarzen und weiBen Quadraten. Die Fla- 
che , in der ein normales Zeichen dargestellt werden kann , ist in 4 
kleinere Quadrate aufgeteilt: 



Da jedes der kleineren Quadrate schwarz Oder weifi sein kann, gibt 
es 2*2*2*2 = 16 Mogl ichkei ten , die im ACE mit den Codes 16 bis 23 
und 144 bis 151 festgelegt sind. 

Diese Zeichen konnen mit den Graphics Modus direkt uber die Tastatur 
eingegeben werden. Durch Drucken der Tasten SHIFT und 9 (dort steht 
auch GRAPHICS) wird die MARKE in @ geandert und die Z ifferntasten 
erzeugen die auf ihnen dargestel I ten Symbole. Die anderen 8 Symbole 
erhalten Sie, nachdem Sie zusatzlich SHIFT und 4 (INVERSE VIDEO) 
gedruckt haben. 



60 



60 



hen 


Code 


■ 


16 


L. 


17 


a 


18 


H 


19 


r 


20 


E 


21 


m* 


22 


. 


23 



:hen 


Code 


□ 


144 


□ 


145 


E 


146 


H 


147 


a 


148 


a 


149 


s 


150 


9 


151 



Sie werden feststellen, daB auch die an der en Tasten Grafik-Zeichen 
erzeugen, Sie haben zwar das gleiche Muster, aber natur I ich andere 
ASCII Codes. Es gibt vier Gruppen von Code-Nummern zur Darstellung 
der ersten acht nicht inversen Zeichen: bis 7, 8 bis 15, 16 bis 23 
und 24 bis 31. Da Sie jedes Zeichen frei definieren konnen , verwenden 
Sie die Zeichen bis 15 und 24 bis 31 fur Ihre eigenen Kreationen. 

Sie konnen selbst errechnen, welche Taste welches Zeichen erzeugen 
kann : 

1. Stel len Sie den ASCII Code der Taste fest (s.Anhang A) 

2. Dividieren Sie den Code durch 32 

3. Der Rest ist der Code des Zeichens, das dargestellt wird 

4. Sie kommen durch Addition von 128 in den Inverse-Video-Modus 



Der Buchstabe a hat den ASCI I Code 97. 97 : 32 = 3, Rest 
Taste a hat das gleiche Graf i k-Symbol wie ASCI I Code 1 . 
Merken Sie sich einfach, daft a oder A im Graph i k-Modus die 1. 
B die 2 ergibt usw. bis zu z oder Z = 26. 



Also: 



Sie konnen Zeichen selbst definieren. Nehmen wir an, Sie wollen das 
Bild einer kleinen Lokomot ive fur irgendein Spiel zeichnen. Alle Zei- 
chen benutzen ein Raster von 8x8 Punkten (schauen Sie einmal genau 
auf den Bildschirm), also m us sen Sie zuerst das Bild der Lok in diesem 
Raster enlwerfen. 



xwxx 

X 



m 



x 

X 

x^xxM<Mx 



X 

xMxxX 



&M 
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Jedes Kreuz bedeutet einen weifSen Punkt auf dem Bildschirm, eine Leer- 
stelle dagegen einen schwarzen Punkt. Jetzt ist festzulegen, welchen 
ASCII Code die Maschine haben soil. Nehmen wir 1, das entspricht 
dem A im Graphik-Modus. Jeder andere Code geht naturlich auch 
(aber Vorsicht bei Codes uber 128, sie sind in invers). Es ist jedoch 
besser, die sonst nicht verwendeten Codes ASCII bis 15 Oder 24 bis 
31 zu nehmen. 

Definieren Sie folgendes Wort 

: GR 

8 * 11263 + DUP 

8 + 

DO 

I C! -1 
+ LOOP 



GR erwartet 9 Zahlen im stack. Die oberste ist der ASCII Code des 
Zeichens, das wir andern wollen, z.B. 1, die ubrigen Zahlen beschrei- 
ben die acht Punktreihen. Dabei ist die hochste Reihe ganz unten 
und die tiefste Reihe ganz oben im stack. Geben Sie jetzt bitte ein: 

2 BASE C! 

00000100 
11110010 
00010010 
000 1 1 1 1 1 
00100001 
00100001 
11111111 
01100110 

DECIMAL 

(die genaue Bedeutung von BASE und DECIMAL wird in Kapitel 16 er- 
lautert. Wir haben die sogenannte Binarschreibwei se benutzt). 

Wie Sie erkennen konnen, ist aus jedem x im Entwurf eine 1, und 
aus jeder Leerstelle eine geworden . Jetzt mussen Sie nur noch 1 
(fur den ASCII Code) und GR eingeben, und das Zeichen mit Code 1 
ist jetzt eine Lok . Gehen Sie mit SHIFT 9 in den Graphik-Modus und 
drucken Sie A. Mit Invers Video (SHIFT 4) und danach A erscheint 
sie schwarz auf weiRem Hintergrund. Sie konnen das Maschinchen 
jetzt wie jedes andere Zeichen einsetzen, indem Sie es nach ." 
bringen oder mit 1 EMIT abrufen . Sie konnen es sogar als eigenes 
Wort benutzen, z.B. 

a 

." Auf der schwab'schen Eisenbahn" 



Wie arbeitet nun GR? Stellen Sie sich eine Reihe mit 8 Punkten vor. 
Jeder Punkt kann schwarz Oder weiR sein, es gibt also 2 = 256 ver- 
schiedene Kombinationsmbgl ichkei ten in einer Reihe. Jede Reihe kann 
als ein Byte codiert werden . Insgesamt haben wir 8 solcher Reihen, 
brauchen also 8 Bytes, die wir im Speicher ablegen. 

Die Speicheradressen von 11264 bis 12287 werden fur die Speicherung 
der ASCII Zeichencodes bis 127 verwendet. Sie sind nach Code-Num- 
mern gespeichert. Die oberste Reihe hat die Adresse 11264+8* ASCII 
Code, und die achte Reihe ist sieben Platze weiter hinten. Das sieht 
dann so aus: 
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Adresse 



Reihe, die dort gespeichert ist 



11264 
11265 
11266 
11267 
11268 
11269 
11270 
11271 
11272 
11273 
11274 



11279 



oberste Reihe fur ASCII 

2. Reihe fur ASCI I 

3. Reihe fur ASCI I 

4. Reihe fur ASCI I 

5. Reihe fur ASCI I 

6. Reihe fur ASCI I 

7. Reihe fur ASC I I 
unterste Reihe fur ASCII ( 
oberste Reihe fur ASCII 1 

2. Reihe fur ASCI I 1 

3. Reihe fur ASCI I 1 



nterste Reihe fur ASCII 1 



Wollen wir ein eigenes Zeichen fur ASCII 1 entwickeln, mussen die 
entsprechenden Zahlen in die Speicherp I atze 11272 bis 11279 gebracht 
werden . GR berechnet diese Adressen und belegt die Platze von 11279 
an ruckwarts. 

Dazu wird ein neues Wort C! benutzt. 

C! speichert nur ein Byte weg (Byte, Adresse - ) im Gegensatz zu !, 
das bekanntlich zwei benachbarte Adressen belegt. 

Ein entsprechendes Wort fur das Lesen nur eines Speicherp I atzes ist 
C@ . (Adresse - Byte). Es entspricht dem Zeichen @. 

FORTH hat fur Behandlung von Zahlen immer zwei einander entspre- 
chende Worter. Einige benutzen ganze Zahlen aus 2 Bytes (wie z.B. @ 
oder ! ), andere nur ein Byte (wie C@ oder C! ). Da der ASCII Code 
eines Zeichens (-Character) ein Byte benutzt, beginnen diese Worter 
meist mit C 

Beachten Sie bitte: Der Speicherbereich , der die Punkt-Muster enthalt, 
kann nur beschrieben , aber nicht in den stack zuruckgelesen werden. 
Nur die Anzeige auf dem Bildschirm ist moglich. 

Fur die Verarbeitung von Zeichen gibt es ein besonderes Wort: 

ASCII. Es erspart Ihnen, jedesmal in die Tabelle zu schauen , wenn 

Sie den ASCII Code eines Zeichens wissen wollen. ASCII nimmt das 

erste Zeichen|des unm i ttel bar folgenden Wortes und legt dessen ASCII 
Code im stack ab. 

ASCII ANTON 

druckt z.B. 65 aus. ANTON ist kein definiertes Wort, aber das ist 
ASCII gleichgul tig . Es nimmt einfach das nachste Zeichen nach einem 
Zwischenraum . Deshalb kann es ubrigens auch den Zwischenraum selbst 
nicht umschl Ossein . 



Weitere Worter fur die Verarbeitung von Zeichen sind: 
SPACE, SPACES, CLS, AT und TYPE 
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SPACE ( -) gibt auf dem Bildschirm einen Zwischenraum aus 

SPACES { n -) nimmt die oberste Zahl vom stack und erzeugt ebenso 
viele Zwischenra'ume, wenn die Zahl positiv ist 

CLS ( -) loscht den gesamten Bi I dschi rmi nhal t . Es Ibscht auch den 

E ingabebereich bis auf eine einzige Zeile. Wollen Sie CLS 

Liber die Eingabe benutzen, durfen nicht zu viele Wbrter da- 
nach folgen, wei I sie sonst verlorengehen . 

AT ( Zeile, Spalte -) nimmt zwei Zahlen aus dem stack und verwendet 
sie als Koordinaten fur die MARKE . Die zweite Zahl von oben 
definiert eine Zeile im Bildschirm ( Zei lenzahl ung von bis 
22, ist die oberste Zeile). Die oberste Zahl definiert eine 
Spalte (Spal tenzahl ung beginnt mit am linken Rand und 
geht bis 31). AT definiert auf diese Weise Zeile und Spalte, 
in der die nachste Bi Idschirmanzeige beginnen soil. 

TYPE { Adresse, Anzahi von Zeichen -) zeigt auf dem B i I dsch i rm Zei - 

chen aus dem Speicher an. Es beginnt bei einer im stack 

abgelegten Adresse und zeigt die im nachsten Platz des stack 
angegebene Zahl von Zeichen an. 



Zusammenfassung: 



Zeichensatz und ASCII Codes 

Entwurf neuer Zeichen 

FORTH-Wbrter: C!, C@, EMIT, ASCII, SPACE, SPACES, CLS, AT, TYPE 
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Ubungen : 

Definieren Sie ein Zeichen mit ASCII Code 2 als E isenbahn waggon : 
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... -. 



xjxjxjxjxxx 
Ttx 

x 

X 



M M 



xb<MxM<xx 



MXllJ 



und geben Sie die folgende Wortdef ini tion GO ein. Beim Eintasten mus- 
sen Sie zwei Zwischenraume vor dem Zug eingeben. 

: GO 

( Lange des Pfeiftons - Lange des Pfeiftons) 
BEGIN 

CLS 22 

DO 
32 

D j° i AT ... Gwa ■■ 

DUP 200 SWAP BEEP ( Pfiff) 
LOOP 
LOOP 

UNTIL 



GO braucht eine Zahl 
fahrt . 



stack, die bestimmt, wie schnel I der Zug. 



2. Definieren Sie ein Wort 

: CODEA 

ASCII abcde . 

Zeigen Sie das Wort mit LIST wieder an. Die Buchstaben bcde sind 
weggefallen, da sie keine Rolle spielen. 

Wir haben vorhin behauptet, daR ASCII ein Wort aus der Eingabe- 
zeile nimmt und den ASCII Code des ersten Zeichens in den stack stellt. 

Das geschieht aber nicht, wenn wir CODEA laufen lassen. Es nimmt 
vielmehr einen Wert von dem Wort, das wahrend der Definition von 
CODEA in der Eingabezeile war. Es verhalt sich innerhalb einer Wort- 
definition also anders als im E ingabebereich . Dieser Unterschied ist 
beabsichtigt . 



Entwerfen Sie Schachf iguren , Sp iel karten-Symbole Oder was 
sonst gerade einfallt. 



I hnen 
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4. Wenn Sie BAS IC kennen, wissen Sie, was TAB ist. Im FORTH gibt 
es kein en tsprechendes Wort. Es ist aber einfach zu definieren: 

: TAB 

( Tabstop -) 

15388 @ - 31 AND SPACES 

(wie das Wort funkt ioniert , ist im Augenblick noch nicht so 
wi cht i g fur Sie). 

TAB nimmt eine Zahl aus dem stack und verwendet es als Spalten- 
Nummer zwischen und 31 (ist die Zahl groGer, wird sie durch 
32 dividiert und der Rest verwendet). TAB stellt dann soviel 
Zwischenraum bereit, dafJ die nachste anzuzeigende Zahl in die 
Spalte paftt (wenn nicht in der gleichen, dann in der folgenden 
Zeile). 

Im folgenden Wort TABELLE wird dies mit einer 4-spaltigen Tabelle 
gezeigt : 

: TABELLE 

( Zahler bis -) 



DO 

I 8 
I . 

LOOP 

CR 



* TAB 



5. Experimentieren Sie mit TYPE. 

100 TYPE druckt wirres Zeug, weil die Bytes ab keine sinnvollen 
Zeichen sind. Es sind vielmehr fest eingebaute Befehl scodes . 

Interessanter ist das schon 8192 500 TYPE, weil 8192 der Anfang 
des Speicherbereichs fur Bi I dschi rm informat ionen ist. TYPE I I est 
also vom Bildschirm und schreibt gleich wieder zuruck. 

Sie konnen s i ch ei n TYPE unter Verwendung von C@, EMIT und DO 
Schleife selbst entwickeln. 



6. Zum Schluft ein kleines lustiges Spiel. Dazu mussen Sie zunachst 
einige Symbole mit GR definieren. Wir haben I hnen die entsprechen- 
den Codes gleich in Dezirnal schreibwei se vorgegeben . 



Geben Sie zunachst die Definition von GR 
geben Sie ein: 



Seite 61 ein. danach 



I 
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1 15 


I 15 


31 


18 


50 | 


I 








128 


! 128 


192 


64 


96 | 


I 63 


48 


112 


127 


I 127 


32 


16 


8 


224 


96 


112 


|240 


I 240 


32 


64 


128 | 


63 


48 


112 


| 127 


| 127 


16 


32 


64 | 


224 


96 


112 


I 240 


I 240 


64 


32 


16 | 


I 


126 


2 


2 


I 62 


2 


126 


I 



|GR 
|GR 
|GR 
|GR 
|GR 
|GR 
|GR 



Damit haben wir ein kleines Monster definiert, das wir jetzt uber 
den Bildschirm laufen und ein bifSchen arbeiten lassen wollen. 
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Wir definieren zunachst das Wort fur die Bewegung. Beachten Sie 

dabei aber bei den Symbolen in ." " die vorgesehenen 

Leerschri t te, damit Ihr Mannchen seine Arbeit einwandfrei verrich- 
ten kann. 



( AB im gRAPHICS-Modus) 
{ CD im gRAPHICS-Modus) 



GEH 






DUP DUP 2 


MOD 




IF 






11 SWAP 


AT .' 


1 Sab@ 


12 SWAP 


AT .' 


■ ScdS 


100 






ELSE 






11 SWAP 


AT .' 


1 Sab@ 


12 SWAP 


AT .' 


1 Sef@ 


200 






THEN 






100 BEEP 







( AB im @RAPHICS) 
( EF im @RAPHICS) 



Im Listing konnen Sie das Mannchen schon erkennen . Mit MOD 
wird entschieden, ob es die Beine spreizt oder zusammenkl appt . 

: FEHL 

CLS 10 1 AT ." Jupiter ACSgS" ( G in @raphics) 

9 1000 BEEP 18 1 

DO 

I GEH ( Schleife 1) 
LOOP 
500 1000 BEEP 8 17 

DO 

I GEH -1 ( Schleife 2) 
+ LOOP 

10 GEH 29 11 

DO 

10 I AT ." @gE " ( G in graphics) ( Schleife 3) 
I GEH 600 200 BEEP 
LOOP 

10 28 

DO 

10 I AT ." E " ( Schleife 4) 

I 1- GEH 

600 200 BEEP -1 
+ LOOP 
29 11 

DO 

I GEH ( Schleife 5) 
LOOP 



Unser Mannchen geht unter dem Schriftzug entlang (Schleife 1), 
stutzt, als es das falsche E erkennt und lauft zurlick (Schleife 2). 
Es schleppt das falsche E weg (Schleife 3) und bringt das 
richtige (Schleife 4). Unter der Last geht es naturlich langsamer. 
Das erreichen wir mit dem langeren BEEP. Zum Schlufi verlafit es 
(in Schleife 5) den Platz. 
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KAPITEL 13 

ZEICHNEN 

Mit den kleinen Quadraten aus Kapitel 12 kbnnen Sie den Bildschirm 
mit beliebigen Mustern aus schwarzen und weifien Kastchen verzieren. 
Es ist nur eine etwas muhselige Arbeit. Einfacher geht das Zeichnen 
dagegen mit dem Wort PLOT , mit dem Sie einen Punkt an eine beliebige 
Stelle im Bildschi rm setzen konnen . 

Jede dieser Quadrat-Posi t ionen nennt man ein Pixel (engl.: picture 

element). Der Bildschirm hat 64 Pixels in der Breite und 48 in der 

Hohe. Sie kbnnen in der Hohe aber nur 46 Pixels benutzen, da die 
unterste Zeile als Eingabezeile reserv iert bleibt. 

Urn ein Pixel zu definieren, brauchen Sie zwei Zahlen, seine Koordi- 
naten . Die erste ist die X-Koordinate von links nach rechts. Ganz links 
steht das Pixel mit der Koordinate , ganz rechts das mit der Koordi- 
nate 63. 

Die zweite Zahl, die Y-Koordinate, verlauft von unten nach oben. Das 
unterste Pixel hat , das oberste 45. 

Im folgenden Diagramm ist das Koordinatensy stem noch einmal dar- 
gestellt (s.Seite 72 ~~) • 

Sind die Koordinaten festgelegt, mussen Sie dem ACE noch sagen, was 
mit dem Pixel geschehen soil. Sie haben dafur vier Mbgl ichkei ten (man 
sagt dazu "Plotting Modus"): 

Pixel auf schwarz setzen (unplot) = 

Pixel auf weiB setzen (plot) = 1 

Pixel nicht verandern (move) - 2 

Pixel in Gegenfarbe andern (Change) - 3 

Die Zahlen nach dem Gleichheitszeichen definieren den entsprechenden 
Code. i 

PLOT braucht also 3 Zahlen im stack ( X-Koordi na te , Y-Koord inate , Plot- 
ting Modus - ) . 

Geben Sie ein 

30 20 1 PLOT 

und Sie erhalten ein kleines weiftes Quadrat etwa in der Mitte des 
Bi Idschi rms . 

Jetzt kbnnen Sie fleiftig uben und Punkte anzeigen lassen. Eines wtrd 
Sie aber stbren: Immer wenn der ACE einen Befehl ausgefuhrt hat, 
schreibt er noch einmal an, was er getan hat und setzt OK dahinter. 
Das kbnnte Ihr Kunstwerk etwas beei n tracht igen . Deshalb gibt es ein 
Wort , mit dem man diese Meldungen unterdrucken kann. Es hei 13 1 INVIS 
(invisible = unsichtbar). Umgekehrt werden die Meldungen wieder sicht- 
bar, wenn Sie VIS verwenden. 

Geben Sie ein 

INVIS CLS 

und malen Sie jetzt nach Herzenslust. 

Zusammenf as sung: 

Pixels, X- und Y-Koordinaten 
FORTH-Wbrter PLOT, INVIS, VIS 
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Ubungen : 

1 . Mit einem Wort DRAW (-zeichnen) konnen Sie recht gut gerade 
Linien zeichnen. Es hat drei Operanden 

( x, y, Plotting Modus - } 

Der Anfangspunkt der Linie ist das letzte mit PLOT oder DRAW aus- 
gegebene Pixel, und der Endpunkt liegt x- Pixels daruber und y- 
Pixels rechts davon . x und y haben also eine gewisse Ahnlichkeit 
mit den x- und y-Koord i naten eines Pixels in PLOT, werden jedoch 
vom Anfangspunkt der Linie aus gerechnet und nicht von der unte- 
ren linken Ecke aus. Sie konnen also auch negativ sein, wie z.B. 
in der Wortfolge 

30 5 1 PLOT 

10 10 1 DRAW 

-10 10 1 DRAW 

-10 -10 1 DRAW 

10 -10 1 DRAW 

die ein Quadrat zeichnet 




Die Zahlenfolge 1...5 gibt an, in welcher Reihenfolge die Seiten 
des Quadrats gezeichnet werden. 

Leider gibt es DRAW nicht fertig im Worterbuch. Wir mussen es 
aus einigen untergeordneten Wortern definieren: 

: SGN 

0> DUP + 1- 

: DRAW1 

ROT ROT OVER SGN OVER SGN 
4 ROLL ABS 4 ROLL ABS 
OVER OVER < 
ROT ROT 3 PICK 
IF 

SWAP 
THEN 

: DIAG 

6 PICK 6 PICK 

: GERADE 

4 PICK 
IF 

6 PICK 
ELSE 

6 PICK 
THEN 



SCHRITT 

15408 C@ + SWAP 
15407 C@ + SWAP 
9 PICK PLOT 



Fortsetzung Folgeseite 
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Fortsetzung Worterdef i n i t ion von Vorsei te: 

: DRAW 

DRAW1 2 PICK DUP 2 / 
SWAP ?DUP 
IF 

DO 

OVER + DUP 4 PICK > 
IF 
3 PICK - DIAG 
ELSE 

GERADE 
THEN 

SCHRITT 
LOOP 
THEN 
7 
DO 

DROP 
LOOP 



Hierzu g i bt es einiges zu erk I aren : 

Zunachst soil m den grbBeren und n den kleineren der Werte |x| bezw. 

| y ] darstellen. |x[ und |y| sind die Absolutwerte von x und y, d.h. 
also Werte ohne Vorzeichen. 

Win bauen die Linie auf, i ndem wir zwei Arten von Schritlen ver- 
wenden: Einen Di agonal schri tt , der ein Pixel sowohl nach x als auch 
nach y verschiebt; und einen geraden Schritt, der nur in eine Richtung 

namlich vertikal oder horizontal verlauft. Wenn wir so g I ei chmaft i g 
wie moglich n Diagonalschritte und m-n gerade Schri t te ausfuhren, 
dann bewegen wir uns um rn Pixels in die eine und um n Pixels in 
die andere Richtung, also genau das, was wir wollen. 

DRAW1 erarbeitet diese beiden Arten von Schritten. Es ersetzt x, y 
und den Plotting Modus durch die folgenden sechs Zahlen im stack 
(von oben nach unten): 

- n, die kleinere Zahl aus |xl und |y|. 

- m, die groRere Zahl aus |x| und I y | . 

- einen MERKER, der anzeigt, welche der beiden Zahlen die groftere 
war: 0, wenn |x| grdBer war und ein gerader Schritt horizontal 
geht. 1, wenn |y| grower war und ein Vertikalschritt folgt. (Wenn 

| x | - lyl, gibt es keinen geraden Schritt und der MERKER ist 
ohne Bedeutung). 

- die y-Richtung eines Diagonal schri ttes ( 1 oder -1 ) 

- die x-Richtung eines Diagonal schri ttes ( 1 oder -1 ) 

- den Plotting Modus. 

DIAG kopiert die beiden Richtungsangaben eines Diagonal schri ttes an 
den TOS (sie sind 1 oder -1); GERADE kopiert die Richtungsangaben 
eines geraden Schrittes an den TOS ( eine ist 0, die andere 1 oder 

SCHR ITT nimmt die beiden Angaben zu ei nem Schritt, so wie sie von 
D I AG oder GERADE zurLickgelassen wurden, und zeichnet mit ihnen 
den nachsten Punkt der Linie. SCHRITT mufi dazu wissen, wo der 
vorhergehende Punkt gelegen hat und benutzt dazu zwei Sy stemvari a - 
ble, die jede ein Byte lang sind, aus den Adressen 15407 und 1 5408. 
(PLOT legt namlich die beiden Koordinaten dort ab: x steht in 15407, 
y in 15408). 
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DRAW mischt jetzt die n Di agonal schri tte mit den m-n geraden Schritten. 
Diese stehen in einem bestimmten Vernal tnis zueinander, namlich (n) 
: (m-n). Das Zahlenverhal tn i s wird in der DO. . .LOOP-Schleife simuliert. 
Im stack steht eine eigene Zahl zwischen 1 und m. In jedem Durchgang 
wird n hi nzuaddiert . 1st die Summe groBer als m geworden , folgt ein 
Diagonal schri tt und m wird wieder subtrahiert. Andernfalls folgt ein 
gerader Schri tt. 



2. Experiment ieren Sie mit DRAW, indem Sie die verschiedenen Plotting 
Modes einsetzen. Hierbei sehen Sie eine An wen dung smog lichkeit fur 
den Modus 2: Er stellt den PLOT-Status her, ohne die Pixels zu 
beei nf I ussen . 

Der Plotting Modus 3 ist nutzlicher, als Sie vielleicht annehmen, 
denn dank seiner besonderen Eigenschaft erhalten Sie durch z weirma I i - 
ges Einsetzen von PLOT oder DRAW wieder den ursprunglichen Zustand. 

Nehmen Sie z.B. (nach INVIS, CLS) 

24 1 PLOT 63 1 DRAW 







32 





1 


PLOT 





45 


1 


DRAW 


Wc 


1 1 


en S 


ie 


jetzt die 


zwe 


it 


e L i n i 
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PLOT 





45 





DRAW 



e wieder loschen, konnen Sie dies mit 



tun. Es hinterlafit aber in der ersten Linie eine Lucke. Wiederholen 
Sie den Versuch durchgehend mit Modus 3. Sie haben dann eine Lucke 
im Kreuzungspunkt beider Linien, nach dem Loschen ist sie jedoch wie- 
der geschlossen . 



3. Zeichnen Sie auf den leeren Bildschirm 

3 PLOT 63 20 3 DRAW 
und dann versuchen Sie mit 

-63 -20 3 DRAW 

die Linie wieder zu loschen. Es geht nicht, denn die vorhandenen 
Unregelma'13 igkei ten fuhren die zweite Linie einen anderen Weg . 

Urn eine Linie wirklich zu treffen, mussen Sie die zweite Linie in 
g I ei cher Richtung verlaufen las sen. 



4. Ein sehr nutzliches Hilfsmittel fur viele Anwendungen ist ein Zufalls 
genera tor , ein Wort, das eine zufallige Zahl erzeugt, wie etwa das 
Roulette. Eur einen Computer ist es garnicht so leicht, Zuf a I I szah len 
zu erzeugen, da er ja festen , vorhersehbaren Befehlen folgt. Einfacher 
ist es , Pseudozuf a I I szah I en zu erzeugen, Zahlen also, die einer Gesetz- 
mafiigkeit unterliegen, die - obwohl fixiert - hinreichend komplex 
ist, urn zufallig zu erscheinen. Hier ein Beispiel: 

VARIABLE SEED 

: SEE DON 

( - nachster Wert von SEED) 
SEED @ 75 U* 75 D+ 

OVER OVER U< 

1- DUP SEED ! 

Fortsetzung Folgeseite 
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: RND 

( n - Pseudozuf al I szah I zwischen und n-1) 
SEEDON U* SWAP DROP 

: RAND 

( Wert fur SEED - ) 

?DUP = 

IF 

15403 @ SWAP 
THEN 
SEED ! 



Kummern Sie sich (noch) nicht darum , wie das f unk ! ion i ert , nehmen 
Sie diese Programme einfach als fertige Rezepte. 

SEEDON nimmt bei jedem Durchlauf den alten Wert von SEED, um 
einen neuen zu erzeugen, den es wieder in den stack zurLicklegt. 
Wenn Sie SEEDON 65536mal benutzen, ist es wieder beim Anfangswert 
angelangt und der Zyklus beginnt von Neuem . 

RND hat einen Operanden und benutzt SEEDON dazu , eine Zufallszahl 
zu erzeugen, die kleiner ist als dieser Operand. 6 RND erzeugt ein 
Ergebnis zwischen und 5, und 6 RND 1+ ein Resultat zwischen 1 
und 6, kann also als "el ektron i scher Wurfel" benutzt werden . 

RAND startet SEED mit dem TOS , so daB Sie immer wissen, m i t 
welcher Zahl die Zufallsfolge beginnt. Das kann fur die Fehlersuche 
sehr nijtzlich sein, wei I Sie immer wieder die gleichen Zahlen fur 
einen Programmtest erhalten. Eine Besonderheit von RAND ist, daB Sie 
mit 

RAND als Ausgangsgrofte eine Sy stemvari ab I e erzeugen konnen, die 
aussagt, wieviele Fernsehb i I der seit dem Einschalten des Computers 
abgelaufen sind (50 je Sekunde). Damit erhalten Sie einen noch 
besseren Zufallswert. 

5. Tippen Sie das folgende Programm mit 
I MUSTER Oder 3 MUSTER ein: 

: MUSTER 

( Plotting Modus - Plotting Modes) 

CLS 

BEGIN 

64 RND 46 RND 

3 PICK PLOT 
UNTIL 
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_ AT und PLOT geht nicht 
in der untersten Zeile 
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KAPITEL M 

PROGRAMME AUF BAND SPEICHERN 

Wenn Sie den ACE abschalten, vergiRt er alles, was Sie i hm eingegeben 
haben. Wollen Sie also das Ergebnis Ihrer Arbeit retten, mussen Sie 
die Programme auf Kassetten sichern. 

Sie bendtigen dazu einen normalen Kassettenrecorder , den Sie an 
den ACE anschlieflen, wie im Kapitei 3 beschrieben. 

Es ist von Vorteil, kurze Kassetten zu benutzen, Sie mussen dann 
nicht so lange suchen, wenn Sie ein gespeichertes Programm wieder 
lesen wol len . 

Tippen Sie jetzt ein Wort ein, das Sie sichern wollen, z.B. 

: EINBILDUNG 

CR ." Sie sind bei weitem" 
CR ." das i n tel I igen teste Wesen , " 
CR ." das je einen Jupiter ACE" 
CR ." benutzt hat!" 

Dann geben Sie ein 

SAVE HONIG 

drucken Sie aber noch nicht ENTER. 

SAVE erledigt die Speicherung, und HONIG ist der Name, der das Pro- 
gramm auf dem Band iden tif iz iert . Sie mussen nicht extra sagen, dafi 
Sie EINBILDUNG speichern wollen, denn SAVE speichert alle Worte, die 
zur Zeit im ACE sind und von I hnen eingegeben wurden. HONIG ist 
kein FORTH-Wort, es ist lediglich eine Erkennungsmarke, die sie ge- 
wahl t haben . 

Spulen Sie die Kassette jetzt so weit vor, daft das Magnetband unter 
dem Schreib-Lesekopf steht. Falls Sie schon I nformat ionen gespeichert 
haben, mussen Sie naturlich bis an deren Ende vorspulen. Starten 
Sie jetzt den recorder mit "Aufnahme" und drucken Sie ENTER. Nach 
etwa 5 Sekunden horen Sie zwei kurze Gerausche aus dem Lautsprecher 
und auf dem Bildschirm wird OK angezeigt. Damit ist die Aufzeichnung 
fur den Computer abgeschlossen . 

Sie sollten sich aber grundsatz I ich davon uberzeugen, dal3 die 
Daten auf der Kassette angekornmen sind: Das kbnnen Sie mit dem 
Wort VERIFY(=bestatigen , prufen ) tun. 

Spulen Sie dazu das Band zurijck bis kurz vor die Stelle, wo Sie 
mit der Sicherung begonnen haben, regeln Sie die Hohen (soweit auf 
Ihrem Recorder vorhanden ) herunter und die Lautstarke auf etwa 3/4. 

Dann geben Sie ein: 

VERIFY HON IG 

und starten das Band. Sobald das Band I hre gespei chert en Daten er- 
reicht , kommt eine Nachricht auf dem Bildschirm: "Diet: HONIG" und 
nach ca. 3 Sekunden OK. In diesem Fall ist alles gut gegangen . 
Wenn nicht , kdnnen Sie den Versuch mit der SPACE -Taste abbrechen . 

Was ist zu tun, wem die Ubertragung mifil ingt? 

1. Sehen Sie im Kapitei 3 nach und fuhren Sie alle dort angegebenen 
Prufungen durch 
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2. Horen Sie sich die Aufzeichnung uber den Lautsprecher des Recorders 
an. Dazu mussen Sie den Kopf hbrer-Stecker herausziehen . Zuerst 
mLifSte etwa 5 Sekunden lang ein hohes Pfeifen zu horen sein, danach 
weniger als eine Sekunde lang ein lauter Ton, dann wieder, aber 
nur kurz das Pfeifen, und schlieRlich noch einmal der laute Ton. 

All dies mufite unerfreulich laut sein, wen Sie die Lautstarke 
des Recorders voll aufdrehen. Horen Sie dagegen nichts, dann ist 
auch nichts angekommen. Unter Umstanden passen die Stecker nicht 
richtig zum Recorder. Ziehen Sie sie einige Millimeter heraus und 
wagen Sie ei nen neuen Versuch. 

Waren die Tone gut zu vernehmen, dann versuchen Sie VERI FY 
bei voller Lautstarke. Bei zu schwacher Lautstarke kann der Compu- 
ter die Signale nicht einwandfrei empfangen; ist es zu laut, werden 
sie leicht ubersteuert. Machen Sie deshalb mehrere Versuche mit 
verschiedenen Lau tstarke-E instel lungen , bis Sie die richtige fur 
I hren Recorder gefunden haben . 

Wenn uberhaupt nichts gent, haben Sie einen schlechten Tag er- 
wischt (oder ein schlechtes Band). Bauen Sie Ihre Agression an 
einem Ihrer Fami I ienmi tgl ieder ab und gehen Sie ins Bett. Ver- 
suchen Sie es am nachsten Tag mit einem neuen Band, reinigen 
Sie die Kopfe oder leihen Sie sich ein anderes Gerat. 

Nach den I nformat ionen in Kapitel 3 konnen Sie Ihr Wbrterbuch 
wieder in den Computer laden. Ein Wbrterbuch, das vom Band in 
den Computer gelesen wird, wird an das Ende eines bereits vorhan- 
denen Wbrterbuchs angehangt. Sie konnen also kleine Gruppen von 
Wbrtern getrennt sichern und nur die zuruckholen, die Sie jeweils 
brauchen. Wollen Sie zuviel auf einmal laden, erhalten Sie ERROR 
10. !m Anhang B erfahren Sie mehr uber diese Fehlermeldung . 

SAVE, VERIFY und LOAD werden fur Worterbucher auf Band verwen- 
det. Sie konnen auch I nformat ionen speichern, indem Sie festlegen, 
wieviele Bytes Sie sichern wo I len, und bei welcher Adresse Sie be- 
ginnen. In diesem Fall verwenden Sie BSAVE , BVERIFY und BLOAD. 

Soil zum Beispiel der B i Idschi rmi nhal t gespeichert werden, dann 
geben Sie ein 

8192 768 BSAVE BILD 

Der Bildschirm hat 768 Bytes, beginnend mit Adresse 8192. 

BILD ist wiederum nur ein Name, der die Daten auf dem Band iden- 
t i f iz i ert . BSAVE ist genauso zu bedienen wie SAVE . 

In diesem speziellen Beispiel ist es nicht unbedingt sinnvoll, 
sofort BVERIFY durchzuf uhren . Durch den Vorgang wird namlich 
der Bildschirm selbst verandert. Mit 

8192 768 BLOAD BILD 

dagegen erhalten Sie wieder das ursprungliche Bild. 

Noch einfacher ist es , wenn Sie BILD immer wieder an die gleiche 
Stelle laden wollen, zu sagen 

BLOAD BILD 

Sie mussen dabei folgende Regeln beachten: 

- die erste Zahl (die BLOAD an zweiter Stelle im stack findet), 
ist die Speicheradresse, bei der Sie das Laden anfangen wollen. 
Es muB ja nicht immer die gleiche sein, ist sie es aber, dann 
genugt auch als Eingabe. 
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- Die zweite Zahl (die BLOAD am TOS findet) ist als reine Vor- 
sichtsmaBnahme gedacht. Soil ten Sie nicht mehr wissen, wieviele 
Bytes gespeichert wurden, kann es gefahrlich sein, sie unbese- 
hen wieder zuruckzuholen, weil Ihnen plotzlich Speicherplatz 
uberschr ieben wird, den Sie noch brauchen . Mi t der zweiten 
Zahl wissen Sie dann aber wenigstens, wieviel Speicherplatze 
maximal zerstort wurden. 

Geben Sie statt der Zahl eine Null ein, dann wird die ursprCing- 
liche Zahl von Bytes ubernommen,. 

Beide Regeln gelten fur BVERIFY und BLOAD. 

Wbrterbuch-Daten und Bytes-Daten sind durchaus etwas Unter- 
schiedliches. ACE sagt Ihnen, worn it er gerade zu tun hat, i ndem 
er "Diet:" oder "By tes.J' vor den Datennamen setzt. Mit LOAD kon- 
nen Sie keine Bytes-Daten, mit BLOAD keine Worter-Daten laden. 

Zusammenf assung : 

Band-Daten: Wdrterbuch-Daten und Byte-Daten 

FORTH-Wbrter: SAVE, VERIFY, LOAD, BSAVE , BVERIFY, BLOAD 



U b u n g e n : 

1. Nachdem Sie den Byte-Datensatz BILD (von Adresse 8192 aus) gesich- 
ert haben, geben Sie ein: 

9216 BLOAD B ILD 

urn es an die Adresse 9216 zuruckzu I aden . Es wird I hren Bildschirm 
mehr oder weniger verandern. 

Was heiftt das? Wo ist der Bildschirminhalt wirklich gespeichert, 
in 8192 oder in 9216? Die Ant wort heiRt: In beiden . Diese Adressen 
sind gewissermaften Vorder-und Hintereingang des Bildschirmbereiches 

Der Vordereingang hat die Adressen 8192 bis 921 5. Wenn Sie diese 
ansprechen, werden Sie sofort vom Computer bedient, auch wenn 
er vorubergehend den Bildschirm aufter Acht lassen muB (Sie 
sehen kurzzeitig weifte Punkte). Da das Band nicht angehalten 
werden kann, verwendet man diese Adressen beim Sichern oder 
Laden des Bildes (obwohl es langsam genug lauft, urn in der 
Praxis keine Probleme zu verursachen ) . 

Der Hintereingang hat die Adressen 9216 bis 10239. Sie werden nicht 
inmer sofort bedient, wenn der Computer gerade mit dem Bildschirm 
beschaftigt ist. Andererseits erhalten Sie bei Benutzung dieser 
Adressen keine storenden we i Ren Punkte. 

Einen ahnlichen Aufbau hat der Speicher fur den Zeichensatz. Die 
Haup tadressen sind 10240 bis 11263, die Nebenadressen (die wir im 
Kapitel 12 benutzt haben) sind 11264 bis 12287. 



2. Es ist naturlich zweckmaRig, einen mit viel Muhe selbst erzeugten 
Zeichensatz fur die spatere Verwendung auf Kassette zu speichern. 
Ungl uckl icherwei se gibt es aber keinen Di rektzugr iff auf den Zei- 
chensatz (s.Kap.12). Sie konnen das Problem aber losen, indem 
Sie den Zeichensatz an eine andere Stelle im Speicher verlagern 
(z.B. in den B i I dschi rmbereich ) und von hier aus sichern. Das 
spatere Zu- ruckladen in den Zeichensatz ist moglich. 
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3. Noch ein hubsches Spielchen. Geben Sie Ihr Liebl ingsworl ein 
(EINBILDUNG) und lasten Sie danach in einem Vorgang ein 

8896 32 BSAVE BILDUNG LOAD HONIG EINBILDUNG 

Schalten Sie den Recorder ein und drucken Sie ENTER. Dadurch si- 
chern Sie einen Datenbestand BILDUNG. 8896 ist die Adresse des 
E ingabebereichs , wenn dieser zwei Zeilen lang ist. 

Sie haben jetzt BILDUNG gesichert und der Computer sucht nach 
einer Worterbuch-Datei HONIG. Unterbechen Sie m i t SPACE und sichern 
Sie das Worterbuch mit 

SAVE HONIG 

Jetzt haben Sie eine Byte-Datei BILDUNG, die eine Zeile des 
E ingabebereichs umfafit und aussagl "LOAD HONIG EINBILDUNG", 
gefolgt von einer Wbrterbuch-Datei HONIG. Laden Sie BILDUNG mit 

8928 BLOAD BILDUNG 

(Beachten Sie, daft sich die Adresse geandert hat, weil der 
E i ngabebereich nur noch eine Zeile umfaftt). 

Der Computer ladt jetzt BILDUNG in den E ingabebereich , ladt danach 
das Worterbuch HONIG und fuhrt EINBILDUNG aus. 
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KAPITEL 15 

BRUCHE UND DEZIMALPUNKTE 

Bisher haben wir nur mit ganzen Zahlen (engl,: integers) gearbeitet 
und in manchen Versionen der FORTH-Programmiersprache durfen andere 
Versionen auch gar nicht verwendet werden. Es ist ja auch erstaunlich, 
wieviel man mit ganzen Zahlen anfangen kann. Aber ACE laftt zusatz- 
I ich auch Dezimal bruche zu, wei I es bequemer ist. Solche Zahlen he i ft en 
Glei tkommazahlen . 

H ier ein Beispiel : 

2.1 2.1 F+ F. 

Als "Komma" muB immer der Punkt verwendet werden. Urn Sie daran 
zu erinnern, werden wir im Folgenden vom Dezimalpunkt sprechen ( ob- 
wohl die Zahlen im deutschen Sprachgebrauch "Glei tkommazahlen heiften) 

Die wichtigste Regel ist: Sie mussen dem Computer imrner sagen, 

daft er es mit Dez imalzahlen zu tun hat, und nicht mit ganzen 

Zahlen. Deshalb weerden anstatt + und . die Worter F+ und F. 

verwendet (das "F" kommt vom englischen Floating-point = Gleit- 

komma ) . 

Versuchen Sie im Vergleich dazu 

2.1 2.1 + . 

das "Ergebnis" 16673 ist Unsinn. 

Es gibt natijrlich auch Dezimal -Versionen fur -, *, / und NEGATE, 
alle durch F am Anfang gekennzeichnet : F-, F* , F/ und FNEGATE . 

Im ubrigen werden sie behandelt wie bereits bekannte FORTH-Worter . 

Alle Dezimalzahlen im ACE FORTH mussen mit Dez imalpunkten geschrieben 
werden. Das gilt auch fur ganze Zahlen, die in Dez imal -Ari thmet i k 
verarbeitet werden sollen. Wollen Sie zum Beispiel 11 : U mit dem rich- 
tigen Ergebnis 2.75 rechnen , mussen Sie dies mit dem Wort F/ tun. 
Dazu brauchen aber auch beide Zahlen einen Dezimalpunkt 

11 . 4. F/ F. 

Es gibt eine weitere Schreibweise fur Glei tkomma-Zah I en , die sogenannte 
Exponential schreibwei se . Dabei folgen unmittelbar auf die Zahl (natur- 
I ich mi t Dezimal punkt ) ein E und eine ganze Zahl. Diese ganze Zahl 
ist der Exponent zur Basis 10 und bedeutet, daft die Glei tkommazahl 
so oft mit 10 zu mu I t ip I izieren ist, wie der Exponent angibt. 

2.1E0 = 2.1 

2 . 1 E 1 = 2.1*10 = 21 

2 . 1 E 2 = 2 . 1 * 1 * 1 - 210 

2.1E3 = 2.1*10*10*10 = 2100 

Ist der Exponent negativ, wird die Zahl durch 10 dividiert 

2.1E-1 = 2.1/10 = 0.21 
2.1E-2 - 2.1/10/10 = 0.021 
2.1E-3 = 2.1/10/10/10 - 0.0021 

Der Exponent bewirkt eine Verschiebung des Dez imal pun kts urn entspre- 
chend viele Stellen. 

In Verbindung mit Glei tkommazahlen gibt es noch zwei andere Worter: 

INT wandelt eine Gfei tkommazahl in eine ganze Zahl urn, indem es 
die Ziffern nach dem Dezimalpunkt weglaftt 

12.99 INT . ergibt 12 

-12.99 INT . ergibt -12 
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UFLOAT wandelt ganze Zahlen in Glei tkommazahlen um: 

12 UFLOAT F. 

ergibt 12. 

Negative Zahlen werden mit ei nem besonderen Kniff umgewandelt. Der 
Computer addiert 65536 dazu und wandelt dann in Gleitkomma um (wo- 
zu das gut ist, sehen Sie in Kapitel 17). Es gibt also durch die Um- 
wandlung nie negative Zahlen. Dadurch erklart sich auch das "U" in 
UFLOAT, es bedeutet im Englischen eine Abkurzung fur "unsigned - 
ohne Vorzeichen). 

Bitte beechten Sie: 

Die Grblie von Glei tkommazahlen im Computer ist begrenzt. Positive Zah- 
len mussen zwischen 1.0E-64 und 9.99999E62 liegen. Falls Sie diesen 
Bereich verlassen, konnen Rechenergebn i sse noch vernunftig aussehen, 
geben aber weiterhin falsche Resultate. 
Negative Zahlen mussen zwischen -9.99999E62 und -0.1E-64 liegen. 

INT gibt richtige Ergebnisse nur im normalen Bereich der ganzen Zah- 
len, also zwischen -32768 und 32767. 

Bei der Behandlung von Glei tkommazahl en mussen Sie daran denken, 
daB jede G lei tkommazahl den Platz von zwei ganzen Zahlen braucht. 
Es ist daher empfeh I enswert , sich Worter fur die G I ei tkommadarstel I ung 
zu def i n ieren : 

: 2DROP 

( Glei tkommazah I - ) 
DROP DROP 

: 2DUP 

( Glei tkommazah I - GK'zahl, GK'zahl) 
OVER OVER 

: 2SWAP 

( GK1 , GK2, - GK2, GK1 ) 
4 ROLL 4 ROLL 

: 20VER 

( GK1 , GK2 - GK1 , GK2, GK1 ) 
4 PICK 4 PICK 

: 2R0T 

( GK1, GK2, GK3 - GK2, GK3, GK1 ) 
6 ROLL 6 ROLL 

: 2@ 

( Adresse - GK) 
DUP @ SWAP 2+ @ 

: 2! 

( GK - Adresse) 
ROT OVER ! 2+ ! 



Zusammenfassung: 

Glei tkommazah I en 

FORTH-Wbrter: F+ , F-, F*, F/, FNEGATE, INT, UFLOAT 
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Ubungen : 

1. Definieren Sie Glei tkomma-Versionen 2R0LL und 2P ICK von ROLL 
und PICK. 

2. Welche von diesen Beispielen sind richtig? 
2 3 F/ F. 

2 7.6 F+ F. 
2. 2.5 F*, 
2. 3. + . 
(Antwort: keines, korrigieren Sie!) 

3. Uber die Glei tkomma-Ari thmet i k ist schon viel geschrieben worden. 
Nachstehend geben wir zwei Beispiele. 

Quadrat wurzel : Das Quadrat einer Zahl ist die Zahl mit sich 
selbst rnultipliziert, die Wurzel einer Zahl ist der umgekehrte 
Vorgang. Sie wollen eine Zahl ermitteln, deren Quadrat eine 
gegebene Zahl ist. Zum Beispiel ist 16 das Quadrat von 4; 4 ist 
die Quadrat wurzel aus 16. !m allgemeinen kann man Quadrat wurzel n 
nicht genau berechnen , weil es unendliche Dez imalzahlen sind. Die 
Quadrat wurzel von 2 ist ungefahr 1.41421. 

Das Wort QWURZEL errechnet die Quadrat wurzel einer Glei tkommazahl 

: QWURZEL 

( Glei tkommazahl - Wurzel) 

1 . 10 

DO 

20VER 20VER F/ F+ 
.5 F* 
LOOP 
2SWAP 2DROP 

Hier ist eine Methode verwendet, die schon im Altertum der 
Grieche Heron benutzt hat. 

Man beginnt mit einer Konstanten und verbessert diesen Wert in 
jedem DO . . .LOOP-Durchgang . 

Was geschieht, wenn Sie -2. QWURZEL rechnen? -2 kann keine 
Wurzel haben , weil jedes Quadrat positiv wird. Trotzdem wird -2. 
QWURZEL ein - wenn auch unsinniges - Resultat geben. 

4. Das folgende Wort berechnet den Sinus eines Winkels, der im Bogen- 
maft angegeben wird. Es hat eine Genauigkeit von 3 Stellen fur 
Winkel um 2pi und 5 Stellen fur Winkel urn pi oder weniger. Es ad- 
diert die Elemente der Potenzreihe 

3 5 7 

X x x 

sin x x - -^ g + 5*4* 3*2 " 7*6*5* 4*3*2 *" 
: SIN 

{ x - Sinus von x) 

2DUP 2DUP 2DUP F* FNEGATE 

2R0T 2R0T ( -x*x, x, x) 

27 2 

DO 

( -x*x, bisher aufgelaufene Summe in der Potenzreihe) 

6 PICK 6 PICK ( Kopie von -x*x an den TOS ) 

F* I I 1+ * 

UFLOAT F/ { -x*x , Summe nachstes Gl ied ) 

Fortsetzung Fol gesei te 
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2DUP 2R0T F+ 2SWAP ( -x*x, nachste Summe, n.Glied) 
2 
+ LOOP 
2DROP 2SWAP 2DROP 

Es folgen noch die Wbrter fur Cosinus und Tangens 
: COS 

( X - COS X ) 

1.57080 25WAP F- ( pi/2-x) 
SIN 



TAN 

( x - tan x ) 
2DUP SIN 
2SWAP COS F/ 
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KAPITEL 16 

PROGRAMMBEEINFLUSSUNG UBER TASTATUR 

Bisher haben wir nur mit Zahlen aus dem stack gearbeitet. Die 
Operanden waren vor dem auszuf uhrenden Wort einzugeben. Es gibt 
aber auchJMethoden , mit denen man wahrend eines Programmabtauf s 
Daten eintasten kann, Oder bei denen man Daten verwendet, die erst 
nach dem Wort eingegeben werden . 

Das einfachste Wort ist INKEY. Es fragt lediglich die Tastatur ab. 
Wenn Sie eine Taste betatigen ( es werden auch die SHIFTS berucksich- 
tigt), legt INKEY deren ASCII-Code auf dem stack ab, andernfalls 
kommt eine auf den stack. 

INKEY kann auf verschiedene Weise eingesetzt werden. In einem schnel- 
len Spielprogramm z.B. werden haufig mit den Tasten 5,6,7 und 8 
(Pfeile) Figuren auf dem Bildschirm bewegt. Andere Programme sollen 
in der Ausfuhrung einfach warten, bis der Benutzer eine Taste beta- 
tigt. Ein Wort hierfur ist WARTE. 

: WARTE 
( - ) 
BEGIN 

INKEY 
UNTIL 

Oder Sie wollen eine Taste drijcken und deren ASCII-Code im stack 
behal ten 

: TASTE 

( - ASC I I -Code) 
BEGIN 

INKEY ?DUP 
UNTIL 



Ein kompl izierteres Wort fragt "(J/N)" und fordert den Benutzer auf, 
"J" oder "N" ei nzugeben . Fur J iegt es eine 1, fur N eine auf dem 
stack ab. 

: J/N 

( - oder 1 ) 
." (J/N)?" 
BEGIN 

INKEY DUP ASCI I j = 
IF 

2 
ELSE 

ASC I I n = 
THEN 
?DUP 
UNTIL 
1- 



INKEY liest direkt aus der Tastatur, es kann daher immer nur ein 
Zeichen erkennen. Andere Worter arbeiten mit dem ganzen Eingabebe- 
reich, so dafi auch ganze Worter eingegeben werden und verarbeitet 
werden kbnnen. 

Es folgen zunachst zwei Worter, die das Programm anhalten. Sie kbnnen 
dann in der gewohnten Weise beliebige Daten eingeben. Nach Drucken 
der ENTER-Taste fahrt das Programm fort. 
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QUERY loscht zunachst den E ingabebereich , danach konnen Sie eingeben . 

RETYPE laB t den E ingabebereich unverandert , Sie konnen dessen In ha 1 1 
ausgeben. Die MARKE ist anfangs fi, sie weist damit auf die Anderungs- 
mogl ichkei t hi n . 

Keines dieser beiden Wbrter beeinfluBt den stack. 

Die nachsten Wbrter befassen sich mit dem E ingabebereich , wenn Sie 
etwas eingegeben haben: 

Das einfachste Wort ist LINE. Es interpret iert den E ingabebereich als 
Zahlen und FORTH-Wbrter wie ublich. Es zeigt ebenfalls ein £ fur ein 
nicht erkanntes Wort an , arbei tet also genau im ublichen Modus, mit 
dem Zeilen behandelt werden . Es konnen also z.B. auch Programme 
aufgerufen werden . Ist die Eingabe jedoch bear be i tet , fahrt LINE mit 
Ihrern Programm fort. Sein EinfluB auf den stack richtet sich vollig 
nach dem Inhalt des E ingabebereichs. 

Das Wort E INGABE steilt eine sehr einfache Methode dar, ein Programm 
anzuhalten, urn eine Zahl eingeben zu konnen. (Wenn Sie BASIC kennen, 
werden Sie so etwas wahrscheinl ich schon vermiBt haben). 

: EINGABE 
( - ?) 
QUERY LINE 

E INGABE i st auBerst f I ex i bel , denn Sie konnen eine Zahl, die Sie ein- 
geben wollen, erst durch eine Rechnung im Computer erzeugen I assen . 
Nehmen Sie an, Sie benbtigen das Produkt 32 * 23 fur eine Eingabe, 
haben aber keine Lust, es vorher auszurechnen . Tasten Sie einfach 

32 23 * 

und EINGABE. 

Der Bediener muB aber andererseits sehr gut aufpassen, denn mit die- 
sem Wort kann er leicht mehr als eine Zahl in den stack bringen und 
dadurch das Programm in der Folge zu falscher Verarbei tung veranlas- 

sen . 

Wir lassen nun eine modifizierte Version von EINGABE folgen, die zwar 
nicht vollig narrensicher ist, aber doch mehr Sicherheit bietet. Sie 
bringt die Zahl -32768 auf den stack und pruft hinterher, ob sie noch 
vorhanden ist. 

: EINGABE 

( - ?) 

-32768 QUERY INVIS LINE VIS SWAP -32768 - 

IF 

." JETZT HABEN SIE ABER" 
CR ." NICHT AUFGEPASST" 
QUIT 
THEN 

Wir haben die Wbrter INVIS und VIS hier eingesetzt, wei I LINE ub- 
I icherweise den E ingabebereich in den oberen Bereich des Bi Idschirms 
kopiert (auch wenn es nicht OK sagt). In einem Programm kbnnte das 
unter Umstanden stbrend sein. 

Beachten Sie das Wort QUIT, das im Fehlerfall angewandt wind. QUIT 
verlaBt das gesamte Programm, also nicht nur EINGABE, sondern alle 
zur Zeit gerade ausgefuhrten Wbrter. Es versetzt den Computer in den 
norma I en E ingabezustand zuruck . Beachten Sie auch, daB QUERY LINE 
in E INGABE den E ingabestatus nur imi tiert , QU IT aber in den echten 
E ingabezustand zuruckf Cihrt . 
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QUIT loscht den stack nicht. Dafur gibt es ein Wort ABORT, das wie 
QUIT wirkt, jedoch auch den Inhalt des stack beseitigt. 

Sie konnen den E ingabebereich besser unter Kontrolle halten, wenn 
Sie ihn Wort fur Wort analysieren. Dafur stehen I hnen NUMBER, FIND 
und WORD zur Verfugung. Jedes sucht nach einem bestimmten Begriff, 
nimmt ihn vom Anfang des Bereichs weg und kopiert ihn (trotz des 
eingeschal teten INVIS) in den oberen Bi Idschi rmtei I . 

NUMBER sucht eine Zahl (Ganz- oder Glei tkommazahl ) am Bereichsan- 
fang. Steht dort keine Zahl, legt es einfach eine auf den stack. 
Wird eine Zahl gefunden , erfolgt die Anzeige auf dem Bi Idschirm , die 
Zahl wird auf dem stack abgelegt, und darLiber (am TOS ) noch durch 
ein Kennzeichen erganzt, welches aussagt, ob es sich urn eine ganze 
Zahl (Kennzeichen 4102) oder eine Glei tkommazahl (Kennzeichen 4181) 
handel t . 

Mit dem folgenden Wort INTEGER kann man eine ganze Zahl aus dem 
E ingabebereich holen. 1st keine vorhanden, wird mit RETYPE erneut 
eine E ingabemogl ichkei t geboten: 

: INTEGER 

( - Ganzzahl ) 
BEGIN 

RETYPE NUMBER DUP 4181 = 

IF 

( Gleitkommazahl ) 

." UNGUELTIG" 

DROP DROP DROP 
THEN 
UNTIL 

Das Wort FIND kann Worter iden ti f iz ieren , die im Wbrterbuch gespei- 
chert sind. Jede Wortdef ini tion braucht einen gewissen Platz im Speicher 
und hat eine Adresse ( der technische Begriff dafur ist Umwandi ungs - 
Adresse , engl. Compilation Adress). Ein definiertes Wort am Anfang 
des E ingabebereichs wird nach oben kopiert und seine Umwandlungs- 
adresse im stack abgelegt. Mit 

FIND DUP . 

erhalten Sie die Anzeige der Umwandlungsadresse von DUP. 
Die Wortfolge FIND DUP . arbeitet folgendermaften : 

1. ACE sucht nach einem auszuf uhrenden Wort und findet zunachst FIND 
Er kopiert es nach oben. Zu diesem Zeitpunkt steht im Eingabebe- 
reich noch 

DUP . 

2. Jetzt wird FIND ausgefuhrt. Es sucht wiederum nach einem Wo't, 
dessen Umwandlungsadresse es auf den stack legen kann. Es 
findet DUP, kopiert es nach oben, und im E ingabebereich bleibt 
nur noch 

zurijck . 

3. Nach FIND fijhrt ACE das nachste Wort . aus. Er kopiert . (der 
E ingabebereich ist jetzt leer), fuhrt es aus, indem er die Adresse 
von DUP anzeigt. 

4. Danach gibt es nichts mehr zu tun. ACE zeigt OK an, und wartet 
auf neue Eingaben. 
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Ein Wort, das die Umwandlungsadresse verwendet, ist EXECUTE (Adresse 
). Es nimmt die Adresse vom stack und fuhrt das zugehbrige Wort 
aus. Denken Sie daran, daft sich durch REDEFINE Umwandl ungsadressen 
andern kbnnen . 

Mit dem Wort WORD kbnnen Sie auch "sinnlose" Wbrter behandeln, die 
weder Zahlen noch Definitionen sind. Da Leerstellen (SPACES) nie Teil 
eines Wortes sind, sondern im Gegenteil zur Trennung vort Wbrtern be- 
nutzt werden , kann WORD das erste Wort im E ingabebereich feststellen. 
AuBer auf den Bildschirm wird das Wort noch in einen Arbei tsbereich 
im Speicher kopiert. Dieser Bereich heiBt "Auff ul I bereich" (Pad). Er 
wird zunachst mit Leerstellen (SPACES) aufgefullt. Er belegt 254 
Bytes im RAM und beginnt bei Adresse 9985. Seine Aufgabe ist es, 
die Verarbeitung von Texten zu ermbglichen. Mit dem Wort PAD kann 
die An fangsadresse 9985 auf den stack gelegt werden. 

Was tut WORD ? 

Erstens wird der Auf ful I bereich mit Leerstellen gefullt. 

Zweitens nimmt es einen Operanden vom stack, der die Wortbegrenzung 
(^delimiter) darstellt. Jedes Zeichen kann als Wortbegrenzer verwendet 
werden . Dazu ist nur sein ASC I I -Code vor Ausf uhrung von WORD auf 
dem stack abzulegen. Fur Leerstellen ist der Code 32, andere Codes 
definieren Sie bitte mit ASCII. 

Drittens sucht WORD einen Text am Anfang des E i ngabebereichs . Begren- 
zer vor dem Text werden ubergangen. Der Text wird bis zum 
nachsten Begrenzer oder zum Bereichsende gelesen. 

Viertens ubertragt es den Text einschl iefi I ich Begrenzer in den Auffull- 
bereich (Pad) ab Adresse 9986. Die Wortlange (ohne Begrenzer) wird 
ins erste Byte des Pad eingetragen (Adresse 9985). 

Funftens legt es die Adresse 9985 auf den stack. 



Geben Sie z .B . ein 

32 WORD axolotl . 

Ein solches Wort wurde nie definiert. Das ist aber gleichgul t ig . 
. druckt 9985 aus, die Zahl vom stack . 
Im Auff ul I bereich sind die ersten Bytes 



Der 



Adresse 



9985 
9986 
9987 
9988 
9989 
9990 
9991 
9992 
9993 



7 
97 
120 
111 
108 
1 1 1 
116 
108 
32 



Lang 


e von 


"axe 


lotl 


ASCI 


-Code 


fur 


a 


ASCI 


-Code 


fur 


X 


ASCI 


-Code 


f iir 


o 


ASCI 


-Code 


fur 


1 


ASCI 


-Code 


fur 


o 


ASCI 


-Code 


fur 


t 


ASCI 


-Code 


fur 


1 


ASCI 


-Code 


fur 


spa 



Mit C@ . kbnnen Sie selbst nachsehen, 

9986 7 TYPE 
das ganze Wort "axolotl" anzeigen. 
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Von einem gespeicherten Text mussen wir Adresse und Lange kennen. 
Diese Information kann man mit folgenden Schritten erhalten: 

1. Wenn WORD den Text in den Auff ul I bereich ubertragt, stellt es des- 
sen Lange voran und legt die Adresse im stack ab. 

2. In vielen FORTH-Versionen gibt es ein Wort COUNT, mit dem man 
aus den I nformationen aus Punkt 1 die fur TYPE (Pkt.3) notwendigen 
Daten ermitteln kann ( Adresse - Adresse + 1, Lange). 

Wir definieren es selbst 

: COUNT 

DUP 1+ SWAP C@ 

3. TYPE nimmt Adresse und Lange vom stack und zeigt den stack an. 

Es folgt ein Beispiel, das WORD und COUNT benutzt. Es ubernimmt 
eine eingegebene Nachricht und schiebt sie ijber den Bildschirm. 

: NACHRICHT 

( - ) 

ASCI I -v. WORD CLS 

BEGIN 

32 
DO 

10 I AT SPACE DUP 

COUNT TYPE ( schiebt die Nachricht urn eine Stelle 
nach rechts) 

11 AT 32 SPACES ( loscht die Teile, die in die 

Folgezeile geschoben werden ) 
1500 
DO 

LOOP 
LOOP 

UNTIL 

Wir haben ^ als Begrenzer gewahlt, damit die Nachricht Leerstellen 
enthalten kann, z.B. 

NACHRICHT Hallo Nachbarn! % 

Wenn das Zeichen ^ fehlt, werden die Leerstellen am Ende des 
E i ngabebereichs als Teil der Nachricht behandelt. 

Noch einmal zur Erinnerung: Ob der E i ngabebereich I nformationen aus 
I hrer letzten Eingabe enthalt (wie bei Nachricht), Oder ob das Pro- 
gramm anhalt, damit Sie Daten eingeben konnen (wie in INTEGER): 
LINE, NUMBER, FIND und WORD arbeiten immer in der gleichen Weise. 

Zusammenfassung: 

Auff ul Ispeicher (Pad) und E ingabebereich . 

FORTH-Worter INKEY, QUERY, RETYPE, LINE, QUIT, ABORT, NUMBER, 
FIND, EXECUTE, WORD, PAD 

Ubungen : 

I. Viele FORTH-Dialekte enthalten ein Wort -TRAILING ( Adresse, 
Lange mit Leerstellen - Adresse, Lange ohne Leerstellen). -TRAI- 
LING beginnt mit Adresse und Lange eines beliebigen Textes (wie 
er von COUNT erzeugt wird) und verandert seine Lange, indem es 
alle Leerstellen am Anfang des Textes entfernt. 

Schreiben Sie eine Definition fur -TRAILING. Stellen Sie aber sicher, 
daB es auch dann richtig arbeitet, wenn der Text nur aus Leerstel- 
len besteht. 
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2. Definieren Sie ein Wort 

: PCT 

PAD COUNT TYPE 

Sie kdnnen PCT einsetzen, urn festzustel len , was am Anfang des 
PAD steht. Untersuchen Sie, was die folgenden Worter mit dem Pad 
anstellen: ASCII, SAVE, LOAD, : . Sie alle wirken auf den Pad, 
so daft ein Text dort nicht immer sicher ist. Auch . benutzt den 
Pad, aber am anderen Ende. 

3. Wenn der Compu ter gerade einmal leer ist, dann definieren Sie 

: EWIG 
BEGIN 

QUERY 
UNTIL 

Das Wort ist nur sehr schwer zu un terbrechen , denn mit ENTER 
kommen Sie aus QUERY heraus, mussen aber BREAK drucken, bevor 
QUERY wieder angesprochen wird. Versuchen Sie es, indem Sie 
SHIFT festhalten und ENTER und SPACE fast gleichzeitig drucken. 
Noch besser ist es allerdings, ein solches Wort garnicht erst zu 
def i n ieren . 
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KAPITEL 17 

ZAHLENSYSTEME 



87 



Wir sind es gewohnt, im Zehnersystem zu rechnen und zu zahlen. 

Dazu stehen uns zehn Ziffern (0 bis 9) zur Verfugung. Es ist 

anzunehmen , daB Menschen deshalb im Zehner- oder Dezimal sy stem 
arbeiten, weil sie zehn Finger haben. 

Der Computer hat keine Finger. Er kann aber zwei Zustande unter- 
scheiden: Ein Schalter ist entweder ein- oder ausgeschal tet , eine 
elektr ischejSpannung ist vorhanden oder nicht vorhanden. Diese beiden 
Zustande kbnnen wir mi t Z if fern def inieren: "Schal ter ein" bedeutet 
1 , "Schal ter aus" bedeutet . Vielleicht leben auf einem fernen 
Planet en Lebewesen, die an jeder Hand 8 Finger haben . Die wlirden 
dann folgerichtig mit einem Sechzehnersy stem arbeiten. 



In der Tat kann 
Man braucht dazu 
System ang i bt 



man mit jedem beliebigen Zahl en system 
nur soviel verschiedene Ziffernzeichen, 



rechnen . 
wie das 



im Zweiersystem sind das di< 

im Zehnersystem die Ziffern 

im Sechzehnersystem bis 
wir der Einfachheit halber 
wol I en . 



Ziffern und 1 , 

J bis 9, und 

9 und noch sechs weitere 
mit den Buchstaben A bis 



Zei chen , die 
F def i n ieren 



Hat man nun b i s 
eine Stel le voran 



zur letzten Ziffer gezahlt, 
jnd zahl t wei ter . 



dann stel I t man einfach 



Die folgende Tabelle soil veranschau I ichen , 
verschiedenen Systemen dargestellt werden kbnnen. 



e die Zahlen 



den 



Zahl 

Null 

Eins 

Zwei 

Drei 

Vier 

FiJnf 

Sechs 

Sieben 

Acht 

Neun 

Zehn 

Elf 

Z wolf 

Dreizehn 

Vierzehn 

Funfzehn 

Sechzehn 



I Dezimal system | Dualsystem | Hexadezimal sy stem 



I I 







1 


1 

1 2 i 


10 


2 


1 3 


1 1 


3 1 


1 ** 


100 


I* 1 


5 1 


101 


5 1 


1 6 


110 


6 1 


1 7 | 


111 


7 


1 8 | 


1000 


8 1 


1 9 1 


1001 


9 


10 I 


1010 


A 


I H I 


101 1 


B 1 


I 12 I 


1100 


c 1 


I 13 I 


1101 


D 1 


1 '4 1 


1 110 


E | 


1 15 I 


1111 


F | 


1 16 1 


10000 


10 | 
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Mit dem Computer konnen Sie jedes beliebige Zahlensystem darstellen. 
Geben Sie z.B. ein: 

2 BASE C! 

und schon konnen Sie 10 und 10 zu 100 addieren 

10 10 + . 

BASE ist eine Variable, die der Computer bereithalt, also eine Sy stem - 
variable. Anders als eine norma le Variable hat sie jedoch nur 1 Byte 
und anstelle von @ und ! mussen Sie C@ und C! benutzen, urn sie an- 
sprechen zu konnen. Ihr Wert ist die Zahlenbasis (das Zahlensystem), 
die Sie gerade benutzen. Haben Sie also mit BASE die Basis auf 2 ge- 
setzt, mussen Sie Ihre Zahlen auch in der Bi nar-Schreibwei se eingeben. 
Genauso antwortet dann auch der Computer. (Bei Glei tkomma-Zah I en 
ist es etwas anders, sie haben immer die Basis 10). 

Um zur menschlichen Schreibweise zuruckzuf i nden , mussen Sie 

1010 BASE C! 

eingeben, d enn 1010 1st im Z weiersy stem , das ja noch aktiv ist, die 
10 des Dez imal systems . Das gleiche konnen Sie mit dem Wort DECIMAL 
erreichen, es setzt die Basis auf 10. 

Unser gewohntes Zahlensystem ist das Dez imal system , das System mit 
der Basis zwei heiBt Dual- oder Binarsystem, das System auf der Basis 
16 heiftt Hexadez imal system oder einfach Hex. 

Der Jupiter ACE ist fur verschiedene Zahlensysteme entwickelt, je nach- 
dem, wie die Basis definiert wird. Ein dreizehiges Faultier wurde v iel - 
leicht die Basis 3, und ein einarmiger Seerauber die Basis 5 wahlen. 

Wie stellen wir nun fest, welchen Wert eine Binarzahl darstellt? In 
der Dez imalschreibweise bedeu ten die verschiedenen Stellen Zehnerpoten- 
zen 

Hunderter 

i Zehner 

ii ,- . 

i i | Einer 

2 5 5 



255 bedeutet also: 2 Hunderter + 5 Zehner + 5 Einer. 

Das gleiche Prinzip wird auch im Binarsystem angewendet . Die Spalten 
sind naturlich Z weierpotenzen 



-Einhundertachtundzwanzig 
--Vierundsechzig 
-Zwei unddreifiig 
-Sechzehn 
— Acht 
-Vier 
-Zwei 
— Eins 



11111111 
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Im Binarsystem bedeutet 11111111: 
Dez imal | B i nar 



128 

64 

32 

16 

8 

4 

2 

1 

255 





ei n 


1 + 


ei n 


1 + 


ei n 


1 + 


ei n 


1 t 


ein 


1 + 


ei n 


1 + 


e i n 



einhundertachtundzwanzig 
vierundsechzig 
z weiunddreift ig 
sechzehn 
acht 
v i er 
z wei 
I + ein :,! e i n s 

|= zweihundertfunfundfunfzig 



Schneller konnen Sie rechnen , wenn Sie in Gedanken 1 addieren, 
dam it erhalten Sie die Binarzahl 1 0000 0000. Die 1 gehbrt in die 
Spa I te "Z weihundertsechsundf unfziger" , 1111 1111 ist a I so 1 weniger 

= 255. 

Der Computer arbeitet, wie wir jetzt wissen, mit dem Binarsystem. Des- 

halb sind uns bisher auch so haufig Z weierpotenzen begegnet. 

Ein Byte z.B. ist eine Zahl, die mit 8 Bits dargestellt werden kann: 

Die kleinste Zahl ist Null 

die groRte Zahl ist 255 



1111 1111 



Eine ganze Zahl wird im ACE durch zwei Bytes dargestellt. Die 

groftte in diesem Fall darstellbare Zahl besteht also aus 16 Bits und 

heiftt 1111 1111 1111 1111 (oder 65535 in unserer Schrei bwei se ) . Das 
ist auch die groft tmogl iche Speicheradresse im System. 

Nun mussen wir aber positive und negative Zahlen darstellen konnen. 
Im ACE wird das so gelost: 



Der Zahlenbereich von 
speichert , 

der Zahlenbereich von 
Zahlen von -32768 bis - 



bis 32767 wird in unveranderter Form ge- 
32768 bis 65535 reprasen t iert die neqativen 



Wenn Sie zu einer negativen Zahl 65536 addieren, erhalten Sie die 
ACE gespeicherte en tsprechende Zahl. 
Bei sp iel : 



Sie geben ein 
ACE addiert 



-19 
65536 



und spei chert 



65517 



Diese Speichermethode hei 13 1 Z weier-Komp lemen t- Methode. Sie bedeutet 
eigentlich, daft wir zwei verschiedene Zahlenbereiche behandeln konnen 

- ent weder Zahlen mi t Vorzeichen von -32768 bis 32767, 

- oder Zahlen ohne Vorzeichen von bis 65535. 

Wie wir die Zahlen def inieren , hangt von den Umstanden ab. 

Es gibt ein Wort U. mit dem man eine Zahl als Zahl ohne Vorzeichen 
ausdrucken kann. Unsere Zahl -19 wurde von . als -19 wieder ausge- 
geben , auch wenn im Speicher 65517 steht. Mit U. dagegen wird sie 
in ihrer gespeicherten Form als 65517 angezeigt. 
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Ein anderes 
(Zahl ,Zahl - 



Wort, das mit Zahlen ohne Vorzeichen arbeitet, ist 
MERKER). Es entspricht dem Wort < . Geben Sie ein 
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U< 



1 -1 U< . 

U< behandelt die -1 als 65535, das ja groBer als 1 ist. 

Zum SchluB noch ein einfaches Verfahren, mit dem man Binar- in Hex- 
Zahlen umwandeln kann: Teilen Sie eine gegebene Binarzahl, von rechts 
beginnend, in Vierergruppen ein und ersetzen Sie dann die Gruppen 
nach der folgenden Tabelle durch die zugeordnete Ziffer oder den ent- 
sprechenden Buchstaben . 



B i t-Gruppen 



5101 
51 10 
51 1 1 



01 1 
100 
101 
110 
11 1 



ersetzt durch 



Fur die Zahl hunderl z.B. wird 
aus Binar 01 10 0100 

Hex 6 4 , a I so Hex 64 . 

Zusammenfassung: 



Zahlensysteme: Dezimal, Hexadezimal, Binar 
Zahlen mit und ohne Vorzeichen 
FORTH-Worter: BASE, DECIMAL, U. U< 

Ubungen : 

I.Warum ist das Binarsystem fur die Definition neuer graphischer Zei - 
chen sehr nutzlich? 

2.Versuchen Sie 

BASE C@ . 

Andern Sie die Zahlenbasis und versuchen Sie es nochmal. Warum 
bleibt die Basis immer 10, glefchgultig wie oft Sie sie andern? 

Schreiben Sie ein Wort . BASIS, das die Zahlenbasis in Dezimalform 
druckt. Stellen Sie sicher, daft die Zahlenbasis nach . BASIS 
wieder gleich ist wie vorher. 
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3.Wahlen Sie die Zahlenbasis 36. Sie konnen jetzt alle Ziffern und 
Buchstaben als Ziffern benutzen. Jecles undef in ierte Wort aus 3 Zei- 
chen wird jetzt als Zahl gespeichert, und Sie konnen es wie Zahlen 
verarbei ten , z .B . 

E IN AUS . . 



4.Eine Zahl wird negativ dargestellt, indem man sie von 65536 subtra- 
hiert. Im Binarsystem geht das sehr einfach: Subtrahieren Sie von 
65535 (das sind lauter Einsen) und addieren Sie 1. Es komrnen nur 
zwei Falle vor: 1-1=0 und 1 - = 1 . 



5 . Wenn Sie Hex ofter benutzen wollen, definieren Sie 

: HEX 

16 BASE C! 



6.Errechnen Sie 2 ( 1024) . Da diese Zahl dicht bei 1000 I iegt , nennt 

man sie auch Kilo (imGegensatz zum "k" in km oder kg steht hier 
"K"). Man spricht in der Datenverarbei tung von einem Kilo-Byte, 
das sind dann eben nicht 1000, sondern 1024 Bytes. 
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KAPITEL 18 

BOOLESCHE ALGEBRA 

Wir haben in Kapitel 9 gesehen , wie IF Zahlen als Bedingungen inter- 
pretiert, die entweder "wahr" (nicht Null) oder "fal sch" (Nu 1 1 } sind. 

MI t den Wortern AND, OR und XOR kbnnen wir Bedingungen kombinieren, 
wir mussen nur sicherstel len , daft es sich um wirkliche MERKER (nam- 
lich oder 1) handelt. Diese Wbrter heiBen auch Boolesche Operalio - 
nen nach dem Mathematiker George Boole. 

Nehmen Sie an, Sie hatten in einem Wort zwei Bedingungen und 
wollen nur dann etwas tun, wenn beide wahr sind, d.h. wenn die 
erste Bedingung wahr ist und die zweite Bedingung wahr ist. Dafur 
benutzen Sie das Wort AND (=und). Eine Zahl im TOS liegt zwischen 
10 und 20, wenn sie groBer als 9 und kleiner als 21 ist. Zunachst 
bringen wir die Aussage aus beiden Bedingungen in den TOS durch 

DUP 9 > SWAP 21 < 

Jetzt sind i m stack zwei MERKER. AND ersetzt sie durch 1, wenn sie 
beide 1 sind. Andernfalls stellt AND eine in den TOS. Nach AND kon- 
nen Sie IF verwenden und wie gewohnt wei terarbei ten . 

Wir konnen diesen Sachverhalt in einer Tabelle darstellen: 

TOS 2.v.oben Ergebnis 

0* 

1 

10* 

11* 1 



OR (=oder) wird verwendet , wenn entweder die erste oder die zweite 
Bedingung wahr ist, oder wenn beide wahr sind. Die Umgangssprache 
verwendet das Wort "oder" in etwas anderer Bedeutung, namlich im 
Sinne etwa von Geldstrafe oder Haft. Bei einer solchen umgangssprach- 
lichen "oder"-Verbi ndung wurden Sie sicherlich erwarten durfen, daB 
Ihnen nur eines von beiden droht, namlich Geldstrafe oder Haft. 

Die Tabelle fur OR hat folgende Form: 

TOS 2.v.oben Ergebnis 


1 
1 
1 

Das dritte Wort ist XOR (es bedeutet "Exclusiv oder"). Es wirkt wie 
OR, das Ergebnis ist jedoch "falsch", wenn beide Bedingungen wahr 
sind. Das heiftt in anderen Worten: Ein "wahres" Ergebnis erhalt 
man nur dann, wenn nur ein Operand "wahr" ist, nicht aber beide. 
XOR entspricht also unserer Bedeutung in der Umgangssprache wesent- 
I ich besser . 

Die Tabelle fur XOR hat folgende Form: 

TOS 2.v.oben Ergebnis 

* 

1* 1 

1 1 
1 1 












1 


1 
1 



1 
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AND, OR und XOR arbeiten nur richtig, wenn sie im stack bezw. 1 
vorf in den . Was geschieht, wenn dort andere Z ah I en stehen? 

Nehmen wir an, im stack stunden die Zahlen 108 und 18, die beide 
ungleich 0, also im bisherigen Sinne "wahr" sind. Das Ergebnis von 
AND muflte dann auch "wahr" sein. 

AND bearbeitet die Zahlen Bit fur Bit: 

0000 0000 0110 1100 (108) 

AND 0000 0000 0001 0010 (18) 



Dieses Ergebnis bedeutet aber "falsch"! 

Die bitweise Verarbeitung von Zahlen mit AND, OR oder XOR konnen 
wir dazu benutzen, Zahlen auf eine besondere Weise mi teinander zu 
kombin ieren . 

Werden z.B. die Zahlen 106 (Binar 110 1010) und 201 (Binar 1100 
1001) durch AND miteinander verknupft, entsteht daraus 



5110 1010 
AND 0000 0000 1100 1001 



0100 1000 
das ist die Zahl 72. 
Genauso sieht es bei OR und XOR aus. 

Hier ist ein typisches Beispiel, in dem AND auf recht unterschiedl iche 
Weise verwendet wird. Wir definieren ein Wort BUCHST, das einen ASCII 
Code daraufhin untersucht, ob er einen Buchstaben darstellt, und fur 
"wahr" eine 1, fur "falsch" eine im TOS ablegt. 

Die ASCII Codes der Grofibuchstaben I iegen zwischen 65 und 90, die 
der kleinen Buchstaben zwischen 97 und 122. 



( ASCII Code 


- MERKER) 




DUP ASC I 1 A 


1- > 






OVER 


ASC 1 1 Z 


1+ < 


AND 




SWAP 


DUP ASC 1 1 a 


1- > 




SWAP 


ASC 1 1 z 


1+ < 


AND 


OR 



Es gibt aber einen hubschen Trick, der zeigt, wie man mit ASCII Codes 
spielen kann. Der ASCII Code eines Kleinbuchstabens ist um 32 
grofter als der des entsprechenden GroRbuchstabens. In der Binar- 
schreibweise erkennen Sie, daR es genijgt, ein Bit von 1 auf zu 
andern, um aus einem kleinen einen grofien Buchstaben zu machen: 

der Binarcode von A ist 0100 0001 

der Binarcode von a ist 0110 0001 

t 

Dieses Bit ist zu andern 

Mit AND und der Zahl 1101 1111 (Dezimal 223) konnen wir das 
entscheidende Bit andern: 7 Bits bleiben so, wie sie waren , 
das Bit, worauf es ankommt, wird zu 0. 

Wir erhalten auf diese Weise ein kurzeres Wort BUCHST. Zunachst an- 
dern wir in Grofibuchstaben und fragen nur noch danach: 

: BUCHST 

( ASC I I Code - MERKER) 

223 AND 

DUP ASCI I A 1- > 

SWAP ASCI I Z 1+ < AND 
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Zusammenfassung: 
FORTH-Wbrter: AND, OR, XOR 



Ubungen : 

1. Obwohl wir x-mal darauf hingewiesen haben , daB AND, OR und 
XOR nur mit den Operanden und 1 einwandfrei arbeiten, gilt 
dies fur OR nicht. Hier kann in der Tat eine "wahre" Bedingung 
aussehen, wie sie will. Warum? 

2. Definieren Sie ein Wort &, das zwei Zahlen aus dem stack nimmt 
und eine 1 hinterlafit, wenn sie "wahr", d.h. ungleich sind, 
und eine 0, wenn eine von ihnen ist. (Verwenden Sie IF. .ELSE.. 
THEN). 

Definieren Sie auch Worter, die so mit OR und XOR korrespondieren , 
wie b mi t AND. 

3. Sie konnen sich die Zahl 223 in BUCHST als eine Art Maske vorstel- 
len, die AND vorschreibt, bestimmte Bits eines anderen Wortes 
unverandert zu lassen und nur eines zu zu machen. 

Entsprechende Masken konnten OR dazu veranlassen, bestimmte 
Bits unverandert zu lassen und den Rest in 1 zu andern; Oder mit 
XOR bestimmte Bits umzukehren, unabhangig davon, wie sie vorher 
aussahen . 

Stellen Sie hierzu Uberlegungen an. 

-1 XOR nimmt den TOS und kehrt alle seine Bits urn. Aus wird 
1, aus 1 wird 0. Wie geht das? (Hinweis: Wie sieht -1 in Binarform 
aus?) 
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KAPITEL 19 

ERWEITERTE ARITHMETIK 

In einem Byte lassen sich 256 (- 2 ) Zahlen darstellen, in zwei 
Bytes 256 256 = 65536 Zahlen. (Ohne Vorzeichen der Bereich von 

bis 65535, mit Vorzeichen von -32768 bis 32767). 

In vier Bytes konnte man 256 - 4 294 967 295 Zahlen unterbringen , 
dazu muftte man ein Paar norma ler Zwei-Byte -Zahlen benutzen. Man 

erhalt damit eine wesentlich hohere Genauigkeit bei vielen Berechnun- 
gen . Das ist das Prinzip der Doppel i angen-Ari thmet i k . 

Die hierfur vorgesehenen Worter behandeln die beiden obersten Zahlen 
im stack wie die beiden Halften einer 4 Bytes langen Zahl. 

D+ ( dl,d2 - dl ■+ d2) addiert zwei doppelt lange Zahlen in den TOS . 

Fur den Anfang nehmen wir etwas Einfaches, was man mit einfacher 
Lange wesentlich eleganter rechnen konnte: 3 + 5. 

3 5 D+ . . 

Zunachst werden also fur die Eingabe einer doppelt langen Zahl zwei 
einfache Zahlen eingetastet: 3 fur 3 unci 5 fur 5. In hexadezimalen 

Ziffern hat die 3 folgendes Aussehen: 



signifikantere, | wenigersignifikante, 
obere Halfte, | untere Halfte, 

hoher im stack | tiefer im stack 

Fur diese Vorgange ist die Zahlenbasis Hex naturlich sehr nutzlich, 
weil die beiden ei nf achl angen Zahlen, die Sie auf dem stack ablegen 
wo I len, den ersten vier (im stack obenliegenden) und den zweiten 
vier ( im stack danach folgenden) hexadezimalen Ziffern entsprechen. 
Eine Zahl in Hex (z.B. 4C83A2) mufi zunachst auf 8 Stellen erweitert 
werden : 

004C 83A2 

Nach BASE ! geben Sie ein 

83A2 004C 

Die Ziffern sind gleich, die beiden Gruppen werden bei der Eingabe 
jedoch vertauscht, damit sie in der richtigen Reihenfolge auf dem stack 
ankommen . 

Beachten Sie bitte: bevor Sie von einer negativen Zahl das Zweierkom- 
plement bilden, mussen Sie noch einige Nullen vor der Zahl einfugen. 
Das Zweierkomplement wird genauso gebildet wie bei einfachlangen Zah- 
len (s.Kap.17): 1 wird gegen 0, und gegen 1 vertauscht (oder die 
Zahl von Hex FFFF FFFF subtrahiert ) , und dann 1 addiert. 

Haben Ihre Zahlen einfache Lange, dann brauchen Sie die Hex-Schreib- 
weise nicht, auch wenn sie doppeltlang verarbeitet werden sollen. Urn 
d ie doppel te Lange zu erz eugen, mussen Sie folgendes tun: 
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1. Bringen Sie die Zahl in den stack. 

2. Erganzen Sie (fur positive Zahlen oder 0}, oder -1 (fur 
negative Zahlen ) 

Einige weitere Worter fur doppelt lange Arithmetik: 

D< ( d1,d2 - MERKER). Ergibt 1 (wahr), wenn dl < d2. 

DNEGATE ( d - -d ) kehrt das Vorzeichen der Zahl urn . 

U* ( nl ,n2 - nl *n2) fuhrt eine Multiptikation aus. nl und n2 sind 
einfachlange Zahlen ohne Vorzeichen. Das Produkt n1 !,: n2 hat eben- 
fal Is kein Vorzeichen , ist aber doppel t I ang . 

256 256 U* . . 

ergibt 1 und 0, die beiden Teile der Zahl 65536 (Hex 1 0000) 

U/MOD ( dl ,n2 - Rest d 1 /n2 , Quot ien t ) . Durch das U wird erre icht , 
daR alle Zahlen ohne Vorzeichen verarbei tet werden . Auch hier 
ist, wie in U*, doppelt lange Arithmetik enthalten. dl, der 
Di v i dend , wi rd doppelt lang, alle anderen Zahlen haben einfa- 
che Lange. 

/* ( nl,n2,n3 - ( n 1 ;;: n2 ) ( n3 ) ) . Wir haben dieses Wort schon im Kap.5 
behandelt. nl *n2 wird als doppel t lange Zahl ausgerechnet . Dadurch 
wird die notwendige Genauigkeit erzielt, auch wenn Sie nie eine 
doppel t lange Zahl zu Gesicht bekommen . */MOD arbei tet entspre- 
chend . 

Wir zeigen Ihnen jetzt ein paar Mog I ichkei ten , Zahlen formatiert darzu- 
stel Ien . Zur Format ierung braucht FORTH doppel t lange Zahlen. Einfach 

lange Zahlen mussen durch Vorausstellen von bezw. -1 erst auf dop- 
pelte Lange umgewandelt werden. 

Zur formatgerechten Ausgabe zerlegt FORTH die Zahlen in einzelne 5 tel- 
ler und speichert sie rijckwarts in einem Zwischenspeicher, dem Pad. 
Bei d i esem Vorgang konnen Tex te und Sonderzeichen eingefugt werden. 

Der Umkehrvorgang kann relativ einfach bewerkstelligt werden. Urn 
etwa die Zahl 123 umzukehren , wird sie durch 10 (die Zahl en basis) 
dividiert, Man erha't Quotient 12 und Rest 3. Dieser Rest ist die 
letzte Ziffer. Durch Wiederholung des Vorgangs mit der Zahl 12 
erhalten wir Quotient 1 und Rest 2, die nachste Ziffer. Schl ieft I ich 
bleibt noch die 1 , die genauso als Quotient ermittelt werden kann. 
Diese Methode laBt sich in jeder Zahlenbasis anwenden. 

Mit <# beginnt der Vorgang. 

Mit #> ist er beendet . Die Zahl ist aus dem stack verschwunden . Statt- 
dessen sind dort die Adresse der ersten Ziffer und die Zahl der Ziffern 
eingetragen (genau was TYPE braucht). 

Zwischen diesen beiden Wortern gibt es: 

# ( dl - d2) erzeugt eine Ziffer aus einer doppelt langen Zahl (ohne 
Vorzeichen). Die Zahl wird durch die aktuelle Zahlenbasis dividiert, 
der Rest in den Zwischenspeicher (er ist die nachste anzuzeigende Zahl), 
der Quotient bleibt im stack. 

#S { d 1 - 0,0) wiederholt # solange, bis aus der doppelt langen 
Zahl im stack geworden ist. Beachten Sie bitte, dal3 #S eine auf 
dem stack hinterlafit. 

Mit HOLD konnen Sie die gewLinschten Sonderzeichen einfugen. HOLD ( 
ASCII-Code -) speichert ein Zeichen, dessen ASC I I -Code gegeben ist, 
in den Zwischenspeicher. 
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Mit dem folgenden Wort GELD konnen Sie einen Betrag, der im stack 
als Wert in Pfennigen gespeichert ist, formatiert anzeigen: 

: GELD 

( Pfennige - ) 

{ erzeugt doppelte Lange) 

<# # # ( zwei Stellen fur Pfennige) 

ASCI I , HOLD ( Komma) 

#S ( Mark) 

ASC I I M HOLD ASC I I D HOLD 

#> TYPE 
> 
Da alles von ruckwarts aufgebaut wird, kommen Pfennige vor DM, 
und auch im Wort DM zuerst das M und dann das D. 

Das nachste Beispiel zeigt, daf5 Sie innerhalb <#....#> auch rechnen 
konnen. Es nimmt eine Zeit in Sekunden, wandelt sie um und zeigt 
sie in der Form Stunden : Minuten : Sekunden an. 

: MINSEC 

{ Dividiert den TOS durch 60, speichert den Rest in 

zwei Ziffern und setzt danach Doppelpunkt) 

( n - n/60) 

60 /MOD SWAP 

# # DROP DROP 

ASCI I : HOLD 



ZEIT 

{ Anzahl Sekunden - ) 
<# MINSEC ( : Sekunden) 
MINSEC ( : Minuten) 
#S ( Stunden) 
#> TYPE 



Ein weiteres Wort im Zusammenhang mit <# und #> ist SIGN ( Ganzzahl 

). SIGN nimmt aus dem stack eine einfachlange Ganzzahl mit Vor- 

zeichen und ubertragt ein Minuszeichen in den Z wi schenspeicher , 
wenn sie negativ ist. 

Da # Zahlen ohne Vorzeichen verwendet, mussen Sie mit # den Absolut- 

wert verarbeiten und irgendwann SIGN einsetzen. Mit dem nachfol genden 

Wort D-> PAD kann man eine doppeltlange Ganzzahl mit Vorzeichen an- 
zei gen . 

: D->PAD 

( doppeltlange Ganzzahl - ) 

DUP >R DUP 0< 

IF 

DNEGATE 
THEN 
<# #S R> SIGN #> 



: D. 

( doppeltlange Ganzzahl - ) 
D->PAD TYPE 

Wir stellen zunachst das Vorzeichen der Zahl sicher. Es wird im 
hbchstwertigen Bit der Zahl dargestellt (als fur positive Zahlen 
oder 0, als 1 fur negative Zahlen). 



98 98 

D-> PAD hat die beiden Teile der Zahl zur Verfugung ( geringerwert iger 
Teil i hbherwertiger Teil). 

DUP >R sichert das Vorzeichen (als Teil der hoherwertigen Halfte) im 
RETURN-stack. 

Im stack steht jetzt noch die Zahl mil Vorzeichen. 1st sie negativ, 
wird sie mit DNEGATE umgekehrt . Auch dazu genugt es, die hoherwerti- 
ge JHalfte zu betrachten. 

Es folgt die Ubertragung der Ziffern in den Zwischenspeicher mit #S, 
und danachwird das Vorzeichen mit R> SIGN erganzt. 

Jetzt ist das Arbeiten mit doppel 1 1 angen Zahlen schon besser zu erken- 
nen . Versuchen Sie z.B. 

256 256 U* D. 

Bekannte Worter aus der E i nf achl angen-Ari thmet i k konnen entsprechend 
auf Doppellange angepaBt werden. Hier einige Beispiele: 

: D0 = 

( d - MERKER) 
OR = 



D0< 

( d - MERKER) 
SWAP DROP 0< 



: DABS 

{ d - Absolutwert von d) 

DUP 0< 

IF 

DNEGATE 
THEN 

Definieren Sie weitere Worter. Sie konnen auch die im Kapitel 15 bereits 
definierten Worter zur Behandlung doppel 1 1 anger Zahlen heranziehen. 



Eine Umkehrung der formatierten Ausgabe ist das Wort CONVERT, das 
Text in eine doppeltlange ganze Zahl umwandelt. Was damit gemeint 
ist, soil an den Zeichen "123" gezeigt werden, die wir in eine Zahl 
mit der Basis 10 umwandeln wollen. Wir verwenden dazu einen Akku- 
mulator, dessen Inhalt zu Anfang Null ist. Hier werden die bereits 
bearbeiteten Ziffern gesammelt. In jedem Folgeschritt mul tipl izieren 
wir den Akkumulator mit 10 und addieren die neue Ziffer hinzu. 

Wir werden im folgenden den Inhalt des Akkumulators in Worten dar- 
stellen, damit der Unterschied zwischen dem Text "123" und der resul- 
tierenden Zahl klar ersichtlich ist. 

Erste Stufe: Akkumulator = Null. 

Zweite Stufe: "1" lesen. Akkumulator mit zehn mul tipl izieren und 
eins addieren. Ergebnis: eins. 

Dritte Stufe: "2" lesen. Akkumulator wird eins * zehn + zwei = zwdlf. 

Vierte Stufe: Akkumulator wird hundertdreiundzwanzig . 

Dies ist tatsachlich die Umkehrung von #S. Sie arbeitet auch in 
jeder anderen Zahlenbasis. 
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CONVERT beginnt mit einem doppel t I an gen Akkumulator auf dem stack. 
Am Anfang des Akkumulators steht die Adresse des Zeichens ein Byte 
vor dem Text, den Sie umwandeln wollen. CONVERT I iest die Zeichen 
einzeln und fultt den Akkumulator auf, bis es ein Zeichen findet, 
das in der aktuellen Zahlenbasis keine Ziffer 1st. Dann stoppt es 
und legt auf dem stack den neuen Akkumulator und die Adresse 
dieses Zeichens ab: 

( Akkumulator, Adresse des Bytes vor dem Text - neuer Akkumulator, 
Adresse des Zeichens, das keine Ziffer mehr ist). 

Als Beispiel definieren wir ein Wort CONVERT,, das bei einer gegebe- 
nen Adresse beginnend, eine doppeltlange Zahl einliest und Kommata 
unterdruck t . 

: CONVERT, 

( Adresse - doppeltlange Zahl, Adresse d.letzten Feldes) 

1-0 ROT 

BEGIN 

CONVERT DUP C@ ASCII , - 
UNTIL 



Zum AbschluR dieses recht "durchwachsenen" Kapitels wollen wir noch 
beschreiben, wie Glei tkommazahlen erzeugt werden . Eine Gleitkomma- 
zahl benutzt zwar auch vier Bytes wie eine doppeltlange Zahl, aber 
in einer/ganz anderen Weise. Jede G lei tkommazahl kann in der Form 

.xxxxxxEy 

geschrieben werden . Sie besteht aus Dezimalpunkt , 6 Ziffern (von denen 
die erste nicht ist) und einem Exponenten y. Die Zahl 123.456 wird 
also in der Form .123456E3; die Zahl 0.0001234 in der Form .123400E-3 
geschrieben . 

Drei der vier Bytes werden fur die Speicherung der 6 Ziffern 
benutzt. In einem Byte sind immer zwei Ziffern untergebracht , je 
eine in v ier Bits. Diese Sch re ib weise he i Bt Binary Coded Decimal 
(=Binar Codierte Dezimalzahl ), weil nicht die Zahl insgesamt binar 
verschl ussel t wird, sondern jede Ziffer fur sich. 

Sie konnen das sichtbar machen, indem Sie die Zahlenbasis 16 
wahlen und eingeben: 

123.456 U. U. 

Sie erhalten die Anzeige 

43 | 12 3456 

Exponent Binar codierte 

Byte Dezimalzahl 

Die Zahl 123.456 belegt zwei Platze im stack. Der niedrigere Platz ent- 
hal t die Ziffern 3456 (binar codierte Dezimalzahl en ) , der hohere 
Platz die Ziffern 12 und das Exponent en -By te . Es konnen nur Exponen- 
ten zwischen -63 und +63 vorkommen. Sie konnen binar in 7 Bits 
gespeichert werden. Aus technischen Grunden wird nicht die ubliche 
Methode fur die Speicherung von Zahlen mit Vorzeichen verwendet . 
Zum echten Exponenten wird immer 64 hinzugezahl t , so daR es nur 
positive Zahlen zwischen 1 und 127 gibt. 
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Das restliche Bit im Exponen ten-Byte ist fur das Vorzeichen der gesam- 
ten Glei tkommazahl reserviert : 1 fur negative, fur positive Zahlen. 
Diese Stelle hat auch bei doppel tl angen Zahlen die gleiche Funktion, 
so daft D0 < auch anstelle von F0< fur Glei tkomrnazahlen verwendet wer- 
den kann. 

In der Glei tkommazahl 0. sind alle 4 Bytes 0. Desha lb kann 00= fur 
Glei tkomrnazahlen ebenso verwendet werden wie F0= 

Zusammenf assung: 

Doppelt lange ganze Zahlen 

Format ierte Ausgabe 

Glei tkomrnazahlen 

FORTH-Worter D+ , D< , DNEGATE , U*. U/MOD, */, <# , #, #S , #> , 
HOLD, SIGN, CONVERT 

Ubungen : 

1. Schreiben Sie eine Version von GELD, die immer drei Stellen links 
vom Komma ausgibt und einen oder mehrere Sterne ( : ' : ) anzeigt, 
wenn kein dreistel I iger DM~Betrag vorhanden ist ( sog .Schu tzstel - 
lung), z.B. DM**1 .95 

2. Definieren Sie die Doppel I angen-Version bereits bekannter Worter: 
D-, D-, DMAX, DMIN, und DU<. 

In einigen FORTH-An wendungen gibt es das Wort D.R 

D.R ( d,n - ) gibt n Stellen einer doppel 1 1 angen Zahl d aus. 
Nicht benotigter Platz wird mit Leerstellen aufgefullt. In unserer 
Definition D.R verwenden wir das fruher schon definierte D->PAD. 

: D.R 

( d,n - ) 

>R D->PAD 

R> OVER - SPACES TYPE 

Achtung: Ist die Zahl langer als die angegebenen Stellen, erhalten 
Sie einen Uberlauf! 

Definieren Sie ein Wort S-> D mit dem Sie eine einfache Zahl mit 
Vorzeichen in eine doppelt lange umwandeln konnen. 
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KAPITEL 20 

IM WORTERBUCH 

Eine Wortdef ini t ion wird, wie Sie wissen, ins Worterbuch ubernommen. 
Bisher haben wir drei Arten von Wortdef ini tionen kennengelernt : CON- 
STANT, VARIABLE und : . Obwohl die drei Arten von Wortdef ini tionen 
sehr unterschiedl ich sind, haben sie andererseits doch einiges gemein- 
sam: 

1. Jedes Wort hat einen Namen 

2. Jedes Wort enthalt I nformationen , die das zuvor definierte Wort be- 
treffen. A 1 1 e Worter sind namlich in einer langen Kette mi teinander 
verbunden, (man sagt auch miteinander verkettet); jedes Wort 
gibt an, wo das nachste zu finden ist. Die Kette beginnt bei dem 
zu letzt|def in ierten Wort und verlauft (in der Reihenfolge von VLIST) 
bis zum altesten Wort. Dort steht ein Kennzeichen, das besagt, 
daR keine weitere Verbindung mehr besteht. 

3. Jedes Wort hat ein 2 Bytes langes Code-Feld, das grundsatzl ich 
angibt, was bei Ausfuhrung des Worts zu tun ist. CONSTANT legt 
zum Beispiel eine Zahl in einen Speicher, : fuhrt weitere FORTH- 
Worter aus. 

4. Jedes Wort enthalt weitere I nformationen (seine Parameter), die ge- 
nauere Aussagen machen, z.B. die Zahl, die CONSTANT speichern 
soil, oder die Worter, die : ausfuhrt. 

Name, Verkettung und Codefeld haben fur jede Wortart das gleiche For- 
mat. Sie bilden den Anfang (engl.: Header = Vorsatz) des Worts. 
Jedes Wort hat einen Header. 

Die Parameter sind im Format sehr verschieden. Sie reichen von einer 
einzigen Zahl bis zu einem groRen FORTH-Programm . 

Die Parameter bilden das Parameter-Feld . Wie sie anzuwenden sind, 
ist im Codefeld festgelegt. 

Diese Festlegungen gelten ganz allgemein. Sie bedeuten, daR sich der 
Wortschatz nicht nur auf die bekannten FORTH -Worter : , CONSTANT, 
VARIABLE beschranken muR , sondern daR man eigene Wort-Typen erzeu- 
gen kann. Die einfachste Methode hierfur bietet das Wort CREATE . 
Es bildet ein Wort, das nur einen Header (Vorsatz), aber kein Parame- 
t erf eld hat, und stellt es ins Worterbuch. 

Ein Wort ohne Parameterfeld scheint zunachst recht sinnlos zu sein. 
Dies ist aber nicht so, denn 

- Sie konnen ein Parameterfeld dafur festlegen (und werden das in 
der Regel auch tun), 

- das Wort legt bei seiner Ausfuhrung die Adresse des Parameterfel des 
im stack ab . Sie konnen mit Hilfe dieser Adresse die Parameter ein- 
setzen , wie Sie wollen. 

Normalerwei se verwendet man CREATE dazu , Variable mit mehr als einer 
Zahl zu speichern . Man nennt diese Variablen Bereichsvariablen (engl . : 
arrays). Wollen Sie z.B. Zahlen speichern, die die Anzahl der Tage 
aller 12 Monate wiedergeben, dann konnen Sie wie folgt verfahren: 
Bilden Sie ein Wort MONATE, dessen Parameterfeld diese 12 Zahlen in 
der richtigen Reihenfolge enthalt. 
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Header f. MONATE | 31 | 28 1 31 | 30 | 31 | 30 j 31 | 31 | 30 | 31 | 30 | 31 | 
| Parameter-Fel d 1 



Den Header bringen Sie mit 
CREATE MONATE 

in das Wbrterbuch. 

Fur das Parameterfeld g i bt es ein Wort , (Komma). , (n -) nimmt 
etne Zahl aus dem stack und fiigt sie in das Wbrterbuch ein. Fur die 
zwolf Zahlen geben Sie ein: 

31 , 28 , 31 , 30 , 31 , 30 , 

31 , 31 , 30 , 31 , 30 , 31 , 

Das , ist ein FORTH-Wort, kein Satzzeichen. Es muB durch Zwischen- 
raum von den Zahlen getrennt sein. Auch das , nach der letzten 
Zahl ist notwendig. 

Das Wort MONATE ist jetzt vollig definiert. Jetzt definieren wir ein 
Wort MONAT, das fur die eingegebene Monatsnumrner die Zahl der 
d iesem Monat zugeordneten Tage bereitstellt. 

: MONAT 

( Monat - Zahl der Tage) 
1- DUP + MONATE + 



Die Definition fur MONAT wird im Wbrterbuch unmittelbar nach der letz- 
ten Zahl (31) von MONATE gespeichert. 

MONATE stellt im stack die Adresse seines Parameterfeldes, d.h. die 
Adresse der 31 fur Januar, bereit. Dazu mussen wir fur Januar eine 
0, fur Februar eine 2 usw. addieren. Die Monatssurnmen sind vorher 
zu verdoppeln, weil die Zahl der Tage jedes Monats in zwei Bytes an- 
gegeben ist. 1- DUP + macht also aus der eingegebenen Monatszahl 
1 - 12 eine relative Adresse der gewunschten Zahl (0 - 22), die 
dann zu der Adresse des Parameterfeldes addiert wird, welche MONATE 
berei tstel it. 

@ holt schlieBlich die gewunschte Zahl aus dem Wbrterbuch. 

Wir zeigen eine ahnliche Anwendung fur die Abkurzung der Tagesbe- 
zeichnungen ( Mon , Die, Mi t ) . Dazu entwickeln wir ein Wort TAGTEXT, 
das die notwendigen 21 Zeichen enthalt. Da ein Zeichen nur ein Byte 
benutzt, brauchen wir hierzu C, eine Version von , die auf ein Byte 

zugreif t . 

C, (Zahl -) fugt wie , eine Zahl ins Wbrterbuch ein, aber immer nur 
in ein Byte. 

Da die Eingabe ASCII M C, ASCII o C, usw. auf die Dauer sehr stupide 
ware, definieren wir ein Hilfswort FOLGE , das uns die Definition von 
TAGTEXT erleichtern sol I . Es nimmt ein Wort aus dem E ingabebereich 
und tragt es zeichenweise ins Wbrterbuch ein. 

: FOLGE 

32 WORD COUNT ( count wurde in Kapitel 16 definiert) 

OVER + SWAP 

DO 

I c@ c, 

LOOP 



103 103 

Geben Sie jetzt ein 

CREATE TAGTEXT FOLGE MonDieMi tDonFreSamSon 
Wenn Sie FOLGE nicht mehr benotigen, konnen Sie es mit 

REDEFINE FOLGE 
durch TAGTEXT uberschreiben . 

Jetzt brauchen Sie noch ein Wort TAG, das zu einer eingegebenen Ta- 
geszahl den entsprechenden Text anzeigt 

: TAG 

< Tag -) 

1- 3 * TAGTEXT + 

3 TYPE 



Fur die Berei tstel lung von Parameterfel dern gibt es noch ein anderes 
Wort , ALLOT (Anzahl Bytes -). Es stellt eine Anzahl von Bytes im Wbr- 
terbuch zur Verfugung, wie das auch C, und , tun, laRt aber im Ge- 
gensatz zu diesen die Speicherpl atze leer. Es reserviert also nur den 
Platz. 

CREATE ist ein ziemlich einfaches Wort . Es baut nur einen Header 
auf, hilft Ihnen aber nicht beim Aufbau des Parameterfel des. Das 
durch CREATE erzeugte Wort schlieBlich stellt auch lediglich die 
Adresse des Parameterfel des im stack ab, das ist alles. Das ist ja 
ganz schon, wenn Sie Ihr Wort nur einmal brauchen, aber bei 
mehreren ahnlichen Vorgangen tun Sie damit dieselbe Arbeit mehrmals. 

Sie wollen z.B. die Tagesbezeichnung in verschiedenen Sprachen haben: 
DAY in Englisch, JOUR in Franzosi sch . Fur jede Sprache brauchen Sie 

1. Die Daten ( Tagesbezeichnungen ) inklusive einer Methode, sie aufzu- 
bauen (was FOLGE tut). 

2. Ein Wort, das die Daten dann anzeigt, so wie TAG. 

Dabei andern sich von Sprache zu Sprache ja nur die Daten. Wir deft- 
nieren uns deshalb ein Wort MACHTAGE, das die Bezeichnungen sowohl 
einbaut als auch verwendet . Dazu konnen wir definieren 

MACHTAGE TAG MonDieMi tDonFreSamSon 

MACHTAGE kann Daten aufbauen , TAG enthalt selbst die Daten, TAGTEXT 
wird nicht mehr gebraucht. Wenn wir TAG so verwenden wie vorher, 
nimmt es Bezug auf MACHTAGE. 

Wie geht das? Zunachst definieren wir MACHTAGE , aber nicht mit : 
sondern mit zwei neuen Wortern DEFINER und D0ES > . Sie werden 
immer zusammen benutzt . (Geben Sie vorher noch ein FORGET TAGTEXT 
und FORGET TAG ein. Sie brauchen beide nicht mehr). 

DEFINER MACHTAGE 

32 WORD 1+ DUP 21 + SWAP 
DO 

I c@ c, 

LOOP 
D0ES> 

SWAP 1- 3 * + 
3 TYPE 

(Der AbschluR erfolgt mit ; wie in einer Doppelpunktdef i n i tion ) . 
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Der ganze Vorgang besteht aus zwei Teilen: 

Der Definitionstei I geht bis DOES > . 

Wenn w i r sagen 

MACHTAGE TAG MonDieMi tDonFreSamSon 

erzeugt MACHTAGE zunachst einen Header fur TAG, genau wie CREATE , 
wobei das Codefeld aiders aussieht, wie wir noch sehen werden . 
Darin baut MACHTAGE in seinem Definitionstei I das Parameterfel d fur 
TAG auf, - es liest in unserem Fall eine Zeichenfolge (engl.:string) 
aus dem E ingabebereich und fugt 21 Zeichen davon ins Worterbuch ein, 
wie das auch das Wort FOLGE get an hat . TAG ist jetzt richtig def i- 
niert. MACHTAGE ist zunachst fertig. 

Teil 2 von MACHTAGE, der Tei I von DOES > bis ; ist der Aktionsteil . 
Er wird eingesetzt, wenn wir sagen 

3 TAG 

Ware TAG mi t CREATE aufgebaut worden , wurde nicht viel geschehen 
- ledigl ich die Adresse des Parameterfel ds wurde auf dem stack hinter- 
I eg t . Jetzt hingegen kann TAG mehr: Mi t Hilfe von MACHTAGE legt TAG 
zwar immer noch die Adresse auf dem stack ( uber die eingebene 3) 
ab , fuhrt aber dann den Aktionsteil von MACHTAGE aus. Dieser Teil 
benutzt die beiden Zahlen, urn die Kurzbezeichnung zu suchen und an- 
zuzeigen . 

Geben Sie ein 

MACHTAGE JOUR I unmarmerjeuvensamdim 

MACHTAGE DAY montuewedthufr i sat sun 

4 JOUR 

5 DAY 

Dies ist eine der klugsten I deen von FORTH, die zu beherrschen 
sich lohnt! 

Beachten Sie bitte, dad MACHTAGE nicht eines der bisherigen 
Wald- und Wiesenworte ist. Es hat vielmehr die Fahigkeit, n e u e 
Wbrter zu definieren und steht auf einer Ebene mit CONSTANT , 
VARIABLE und CREATE. DEFINER steht sogar noch weiter oben , 
denn es kann neue Worter definieren, die ihrerseits wieder 
neue Worter definieren kdnnen. Im nachsten Kapitel werden wir 
sehen, wie man damit Erleichterungen schaffen kann, an denen 
es im FORTH in sei ner Grundform feh I t . 

Beachten Sie weiter: Wenn Sie ein def i n ierendes Wort (wie MACHTAGE) 
benutzen, und wenn wahrend der Definition eines neuen Wortes (z.B. 
TAG) ein Fehler auftritt, geht die unvol I stand ige Definition im Worter- 
buch verloren. Dadurch wird zwar weiter kein Schaden angerichtet, 
aber es wird Speicherpl atz versch wendet . Sie sol I ten es deshalb mit 
FORGET Ibschen. In Kapitel 24, Ubung 5 zeigen wir I hnen einen ande- 
ren Weg . 

Noch eine Anmerkung: 

In anderen FORTH-Versionen wird statt 

DEFINER Name 
geschrieben 

: Name CREATE 
oder 

: Name <BUILDS 
Die Wirkung ist gleich, im ACE ist aber nur DEFINER moglich. 
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Schauen wir uns zurn SchlufJ noch an , wie der Header eines Wortes 
genau aufgebaut ist: 

Zuerst kommt das Namensfeld. Es enthalt den Namen und hat fur 
jedes Zeichen ein Byte {maximal 63) . Buchstaben werden in Groftschrei- 
bung dargestellt. Das letzte Zeichen zur Kennzeichnung wird um 128 
erhoht (d.h. daft das hochst wert ige Bit auf "1" gescha! tet wird ) . 
Normalerweise bedeutet dieses Zeichen die Umschaltung auf Invers 
Video, nicht aber hier. 

An zweiter Stelle folgen zwei Bytes, das Langenfeld . Es gibt die 
Gesamtlange der Wortdef ini t ion , ausgenommen das Namensfeld, an: 7 
fur den Rest des Headers + Lange des Parameterfeldes. Das Langen- 
feld wird ausgef ul 1 1 , wenn das nachste Wort definiert wird. 

Das Dri tte ist das zwei Bytes lange Verkettungsfeld . Es ist die Adresse 
des Namensl angenfel des des unmittelbar vorher definiert en Wortes. 

An vierter Stelle folgt ein Byte als Namensl angenfel d , also die Zahl 
der Zeichen, aus denen der Name besteht. Um aus einem Wort ein So - 
fortwort zu machen (s.Kapitel 23), kann zu der Lange noch die Zahl 
64 addiert werden. 

Wort f unf ist das Codefeld , das in zwei Bytes angibt, wie sich das 
Wort verhalten soil. 

Mi t dem Wort FIND erhalten Sie die Adresse des Codefeldes des ange- 
gebenen Wortes. 

Zusammenf as sung: 



Header ( Vorsatze) von Wortern - Namensfelder , Langenfel der , Verket- 
tungsfelder, Namensl angenfel der , Codefelder , Parameterfelder . 

FORTH-Wdrter: CREATE , C, ALLOT DEFINER DOES > 

Ubungen : 

1. Wenn es VARIABLE und CONSTANT nicht gabe, wie kbnnte man sie 
mit DEFINER definieren? Definieren Sie ahnliche Wbrter 2VARIABLE 
und 2C0NSTANT, die A -By tes-Zahlen speichern konnen , d.h. entweder 
Glei tkommazahlen oder Ganzzahlen mit Doppelter Genauigkeit. 

2. Definieren Sie ein Wort KOPF mit CREATE und vergleichen Sie 

KOPF . 

mit 

FIND KOPF . 

Das erste Wort gibt die Adresse des Parameterfeldes, das zweite 
die Adresse des Codefeldes an, das 2 Bytes davor liegt. 

3. Viele FORTH -Vers ionen ha ben ein Wort ' ( ausgesprochen "tick") , 
das wie FIND arbeitet, aber die Adresse des Parameterfeldes aus- 
gibt. Seine Definition auf dem ACE ware 

FIND 2+ 

4. In Kapitel 11 Ubung 1 haben wir versprochen, I hnen eine schnelle 
Methode der Berechnung von Tonhohen-Zahlen vorzustel len . Das 

r\ / 1 9 

Problem bestand darin , eine gegebene Tonhdhe mit (1/2) zu mul- 

tipl izieren , um die Daten eines Halbtons zwischen und 11 zu er- 

1/1 2 
rechnen . Dazu haben wir sie n-mal mit (1/2) mu I tipl iziert . Es 

ist aber besser , die 12 Zahlen in einem Bereich zu speichern . 

Jede wird mit 2 Zahlen als Bruch definiert (z.B. 17843/18904 fur 

(1/2) 1/12 ). 
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Definieren Sie 

CREATE SKALA 1,1, 17843 , 18904 , 

26547 , 29798 , 16585 , 19723 , 

4813 , 6064 , 5089 , 6793 , 

19601 , 27720 , 6793 , 10178 , 

3032 ,4813 , 5377 , 9043 , 

14899 , 26547 , 9452 , 17843 , 

(zusammen 24 Zahlen). 

Die neue Version von SEMI heiftt jetzt 

: SEMI 

( Halbtbne liber kleinem c - Tonhbhe) 

36 + { Halbtbne uber dem tiefen C) 

12 /MOD SWAP ( Zahl Oktaven, Zahl Halbtbne) 

3822 SWAP 

DUP + DUP + SKALA + 

DUP @ SWAP 2+ @ */ 

SWAP ?DUP 

IF 

( Division durch 2 fur jede Oktave) 



DO 
2 / 

LOOP 
THEN 



5. Hier folgt noch eine hubsche Pruf mbgl ichkei t fur TAG, JOUR und 
DAY unler Verwendung von FIND und EXECUTE 
: TEST 

FIND 8 1 
DO 

I OVER EXECUTE SPACE 
LOOP 
DROP 



Nun geben Sie ein 

TEST TAG 
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KAPITEL 21 

ZEICHENKETTEN UND BEREICHE 

Zwei Anwendungsbeispiele, die DEFINER benutzen: 

Strings ( -Zei chenketten ) sind Anei nanderreihungen von Zeichen, die 
als eine Einheit behandelt werden. 

Bereiche (=Arrays) sind Variable, die mehr als eine Zahl speichern 
konnen . 

In vielen Computersprachen sind Strings und Arrays bereits eingebaut. 
Bei FORTH ist dies normalerwei se nicht so, aber Sie konnen diese Hilfs- 
mittel selbst definieren oder als fertiges Produkt auf Kassette kaufen. 

Strings 

Ein String ist eine Kette (oder Folge) von Zeichen. Es ist nicht das 
gleiche wie ein Wort, wei! ein Wort i m Gegensatz zum String eine vor- 
definierte Funktion hat. Mit FORTH konnen Sie Strings m i t ."lediglich 
anzeigen, aber in vielen Computersprachen konnen Strings fast wie 
Zahlen verarbeitet werden. Wir zeigen Ihnen hierfur einige Beispiele. 

Zunachst suchen wir eine Moglichkeit, Strings auf dem stack abzulegen, 
allerdings geht das nicht direkt. Wahrend fur eine Zahl grundsatz I ich 
feststeht, wieviel Platz sie im stack braucht (zwei Bytes fur eine ganze 
Zahl, vier Bytes fur eine doppelt lange Zahl), kann ein String jede 
Lange bis maximal 255 Bytes haben . Deshalb legen wir den String 
irgendwo im Speicher ab und notieren seine Adresse und Lange im 
stack. Das ist wiederum genau die Form, in der TYPE arbeitet, so 
daB wir den String schon anzeigen konnen. Im nachsten Schritt legen 
wir ein Verfahren fest , mit dem Strings anstelle von Zahlen gespeichert 
werden konnen. 

Dazu definieren wir ein Wort STRING. Sein Def i n i t ionstei I erzeugt ein 
Parameterfeld , das zunachst ein Byte fur die Lange enthalt (der String 
kann deshalb auch nicht langer als 255 Bytes sein), und dann den 
String selbst, der aus dem E i ngabebereich gelesen wurde. Der Aktions- 
teil setzt die Adresse des Parameterf el des in Adresse und Lange des 
String urn und legt sie in der ublichen Form auf dem stack ab . Wir 
verwenden das Wort COUNT aus Kapitel 16: 

DEFINER STRING 

ASCII " WORD COUNT DUP C, 

OVER + SWAP 

DO 
I C? C, 

LOOP 
DOES> 

COUNT 



Definieren Sie nun einen String, indem Sie alles in einem Vorgang ein- 
tasten : 

STRING SPRUCH WER DEN SCHADEN HAT, BRAUCHT FUER DEN SPOTT 
NICHT ZU SORGEN " 

Da wir mit ASCII " WORD das Anf uhrungszeichen " als Begrenzer defi- 

niert haben, konnen wir im String Leerstellen verwenden. 

Mit 

SPRUCH TYPE 

konnen Sie das Sprichwort wieder anzeigen. 
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Aus einem String kann man Teile herausnehmen (sogenannte Sub- 
strings). Man nennt diese Methode slicing (=schneiden). Sie mussen 
dazu nur angeben, wo der Substring beginnen und enden soil, und 
naturlich ein Wort SL ICE def inieren . Das Wort sol I so beschaffen 
sein, daft es aufgrund der Angabe 

SPRUCH 35 50 SLICE TYPE 

den Text "DEN SPOTT NICHT" anzeigt. 

SLICE hat vier Operanden: Adresse und Lange des groften Strings, 
sowie Anfang und Ende des innerhalb liegenden Substrings. Da 
hieraus die ubliche Forma tang a be fur String resultiert, konnen Si e 
mit dem Substring das Gleiche tun wie mit dem ursprungl ichen 
String. Sie konnen ihn so gar noch einmal zerschneiden. 

: SLICE 

( Adresse, Lange, Anfang, Ende - Adresse, Lange) 

SWAP 1 MAX 3 PICK MIN 1- 

( Adresse, Lange, Ende, Anfang-1) 

SWAP ROT MIN OVER MAX 

( Adresse , Anfang-1 ,Ende) 

OVER - ROT ROT + SWAP 



Diese Definition achtet darauf, dali der Anfang nicht zu niedrig, das 
Ende nicht zu hoch, oder das Ende nicht niedriger ist als der Anfang. 

Man kann Strings miteinander vergleichen. Zwei Strings sind offensicht- 
lich dann gleich, wenn sie dieselben Zeichen in dersetben Reihenfolge 
haben. Etwas schwieriger ist es, Strings in eine alphabetische Ordnung 
zu bringen. Wir gehen davon aus, daft ein String "kleiner" ist als 
der andere, wenn er im Alphabet zuerst komm t: "Hund" ist 

kleiner als "Katze", "Drei" ist kleiner als "Zwei". Wir verwenden 
dazu die Zeichen < (kleiner als) und > (grofter als), die wir in 
Verbindung mit Zahlen schon kennen. 

Die Ordnungsregel n sind hier etwas anders. Sie basieren auf dem ASCII 
Code der Zeichen. Um zwei Strings zu vergleichen, prLif en Sie Zeichen 
fur Zeichen bis zu einer Stelle, an der Sie voneinander abweichen, 
und vergleichen diese beiden Zeichen miteinander. Dieses Verf ah ren 
stellt sicher, daft "Buchbi nder" vor "Buchmacher kommt. Da aber 

die ASC I I Codes der kleinen Buchstaben grofter sind als die der 
Groftbuchstaben,ist uberraschenderweise "Zoo" kleiner als "affe", und 
"FORTH" kleiner als "Forth". 

Als String-Versionen von =, < und > definie ren wir die Worter $=, $< 
und $>. 

: 0<> 

{ n - MERKER) 

( pruft n auf Nicht-Nul I ) 

0= 0^ 

: +C0UNT 

( verwendet in CHECK) 
4 ROLL 1+ 4 ROLL 1- 



Fortsetzung Fol gesei te 
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: CHECK 

( Adresse 1, Lange 1, Adresse 2, Lange 2 - Adresse 3, 

Lange 3, Adresse 4, Lange 4) 

( Gleicht Adressen und Langen zweier Strings aneinender 

an, urn uberei nst immende Anfangszeichen zu ubergehen ) 

BEGIN 

3 PICK 0<> OVER 0<> AND 

5 PICK C? 4 PICK C§ = AND 
WHILE 

( noch kein String fertig und noch Ubereinstimmung ) 

+C0UNT +COUNT 
REPEAT 



<DROP 

( a,b - b) 
SWAP DROP 



: $= 

( Al , L1 , A2, L2 - MERKER) 

CHECK { die Strings sind jetzt gleich, wenn beide Langen 

sind) 
<DROP OR <DROP ( Adressen fallen weg , Langen mit OR 
zusammengekoppel t ) 



( Al , LI , A2, L2 - MERKER) 
CHECK ROT ( A3, A4, L4 , L3) 
OVER 0<> OVER 0<> AND 
IF 

( noch kein String zu Ende, verschiedene Zeichen ver- 

g I ei chen ) 

DROP DROP C@ SWAP C@ > 
ELSE 

( Ein String startet den anderen) 

> <DROP <DROP 
THEN 



$> 

( Al , LI , A2, L2 - MERKER) 

4 ROLL 4 ROLL $< 



Das entscheidende Wort ist CHECK, das beide Strings pruft, bis es ein 
Zeichen findet, in dem beide Strings sich voneinander unterschieden . 
Auf "Buchbinder" und "Buchmacher" angewendet, endet CHECK mit 
"binder" und "macher". 
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Berei che 

Ein Bereich (engl. array) ist eine Variable, die mehr als eine Zahl 
aufnehmen kann , wie zum Beispiel MONATE. Diese Zahlen heiften E lemen - 
te des Bereichs, MONATE hat also zwolf Elemente, namlich 31, 28, 31 
usw. Um ein besonderes Element anzusprechen , nehmen Sie seine Posi- 
tion im Bereich, seinen Index. In MONATE sind die Indices fur 
Januar = 1, fur Februar - 2 usw. 

Da wir MONATE m i t CREATE definiert haben , muBten wir auch MONAT 
beschreiben, um den Index in die Adresse eines Elements umzuwandeln. 
Mi t DEFINER kann man ein Wort BEREICH definieren, das man wieder- 
um zur Definition von MONATE verwenden kann. MONATE kann dann 
sowohl die Elemente speichern als auch die Indices verarbeiten (eine 
schone Ubung). 

Eine komp I iz i ertere Bereichsdef in i t ion benutzt zwei Indices fur jedes 
Element: Der Bereich ist zweidimensional . Die Elemente sind mit 
Zahlen in einer Tabelle zu vergleichen, die man mit einem Index fur 
die Zeilejund einem zweiten fur die Spalte ansprechen kann (vgl.S.72). 

Mit den nachfol genden Wdrtern konnen Sie z wei d i mensiona I e Bereiche 
definieren. Es sind nur Beispiele, mann kann noch eine Menge ergan- 
zen . Ist Ihr Speicher nicht groB genug, loschen Sie vorher die 
Worter zum Thema String. 

: 2* 

( n - 2*n) 
DUP + 



ZEILE 

. " Zei I enf eh I er" 
CR 



SPALTE 

." Spa I tenf eh I er" 
CR 



: NACHRICHT 

." Bitte FORGET dieses Wort. 
CR ABORT 



ZEILE? 
IF 

ZEILE ABORT 
THEN 



SPALTE? 
IF 

SPALTE ABORT 

THEN 



Fortsetzung Folgeseite 
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DEFINER 2-D 

( Zeilenzahl, Spaltenzahl) 

DUP 1- 0< 

IF 

( Zahl d.Spalten ist oder kleiner) 

SPALTE NACHRICHT 
THEN 

OVER DUP 1- 0< 
IF 

( Zahl d.Zeilen ist oder kleiner) 

ZEILE NACHRICHT 
THEN 

C, DUP C, * 2* ALLOT 
DOES> 

( Zeile, Spalte, Bereichsadresse - E lementadresse ) 

ROT ROT 3 PICK ( Adresse, Zeile, Spalte, Adresse) 

C@ 3 PICK DUP 1- 

0< ZEILE? < ZEILE? ( Fehlermeldung , wenn falsche 

Zeile) 

DUP 1- 0< SPALTE? 

3 PICK 1+ C@ DUP 

3 PICK < SPALTE? ( Fehlermeldung, wenn falsche 

Spalte) 

ROT 1- * + 2* + 



2-D setzen Sie ein, indem Sie z.B. sagen 

8 8 2-D SCHACH 
oder 

1 12 2-D MONATE 

und dann Ihre Elemente einfullen. Die Elemente werden wie Variable 
m i t @ und ! verarbeitet. Um z.B. ein Element nach Zeile 2, Spalte 5 
in SCHACH zu laden, geben Sie ein 

1 2 5 SCHACH ! 

| 1 

Legt clement fest 

und mi t 

2 5 SCHACH @ 

holen Sie es wieder in den stack. 
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Zusammenf assung: 

Strings, Substrings, Vergleich von Strings, 

Arrays (Bereiche), Elemente, Indices, Dimensionen. 

Ubungen : 

1 . Noch ein paar Verbesserungen zu Strings: 

- Zuordnung: Die Zeichen eines Strings sollen in einen zweiten 
ubertragen werden . Adressen und Langen beider Strings sind im 
stack vorhanden. 1st der erste String zu lang, soil das Ende 
abgeschni tten werden , ist er kurzer, sind die ubrigen Bytes mi t 
Leers te I len aufzuf ul len . 

- Ein Wort, das nur die Lange eines Strings auf dem Stack behalt 
{und die Adresse wegwirft). 

- Ein Wort , das den ASC I I -Code des ersten Buchstabens im stack 
ablegt . 

2. Weitere Mogl ichkei ten fur Bereiche: 

- Wenn die Adresse eines Elements errechnet wird (z.B. durch ein 
Programm), konnen die Indices gepruft werden, urn zu vermei- 
den, daft sie zu groft oder zu klein werden, wie z.B. in 2-D. 
Andererseits wird ein Programm naturlich schneller, wenn man 
solche Prufungen wegl a (3 1 . 

- Wir haben fur einen Bereich Obergrenzen definiert, um festzule- 

gen , wie groB er werden darf . Die Untergrenzen mussen natur- 
lich nicht automati5ch bei 1 liegen. Sie konnen eben falls frei 
def i n iertjwerden . 

- Man kann drei- oder mehrdimensionale Bereiche definieren. Die 
Zahl der Dimensionen entspricht der Zahl der Indices, die zu 
einem Element gehoren . Mit einem Wort DIM (statt 2-D) wird 
dann erst die Zahl der Dimensionen vom stack gelesen und in 
das Parameterfeld gestellt. Danach folgen die Grenzen selbst. 

- Ein Bereich (array) mufi nicht auf zwei Bytes lange Zahlen fur 
Eintragungen beschrankt sein. Man konnte auch Bereiche fur Ein- 
tragungen von ei nem oder vier Bytes definieren. 

- Das Def i ni t ionswort konnte alle Elemente auf setzen , wenn der 
Bereicn definiert wird. 

- Ein Kon st an ten bereich en thai t feste E lemente. Diese mussen bei 
der Definition des Bereichs bereits im stack vorhanden sein. 

Diese Anforderungen sind zum Tel I recht schwierig zu realisieren. 

Versuchen Sie Ihr Gluck. 

3. Zwei Worter, die man oft in FORTH findet, nicht aber im ACE FORTH 
sind MOVE und CMOVE . Fur die Bear bei tung von Strings sind sie 
sehr nutzlich. Sie kop ieren I n form at ion von ei nem Speicherplatz zu 
ei nem an der en . 

MOVE ( Adresse 1 , Adresse n - ) kopiert den In ha 1 1 von n 2-By tes 
langen Stel len ab Adresse 1 in den Speicher ab Adresse 2 . 
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CMOVE ( Adresse 1, Adresse 2, n -) ist ahnlich. Es ubertragt 
aber Einzelbytes statt 2-Bytes lange Stellen. 

Ist n in MOVE oder CMOVE negativ oder 0, geschieht nichts. Schrei- 
ben Sie Ihre eigenen Def initionen . 

Ein Problem kann auf treten , wenn der Bereich, aus dem gelesen 

wind, sich m i t dem Block uberschneidet , in dem geschrieben 

werden soil: In diesem Fall ist sorgfaitig darauf zu achten , von 
welcher Seite des Blocks Sie zu kopieren beginnen. 

Ein verwandtes Wort (wenn auch im ACE nicht vorhanden) ist 
FILL ( Adresse, n, Byte -), das den Speicher ab einer gegebenen 
Adresse mit n Kopien eines gegebenen Bytes fullt. 
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KAPITEL 22 

MEHRERE WORTERBUCHER 



lm FORTH kann man mehrere Worterbucher nebeneinander aufbauen. 
Jedes Worterbuch hat seinen eigenen Namen. Anfangs, natsh dem Ein- 
schalten des ACE, gibt es nur FORTH. Wenn Sie daneben weitere 
Worterbucher festgelegt haben und ein Wort suchen, dann beschrankt 
sich die Suche auf das gerade aktive Worterbuch . Sie konnen also 
z.B. Worter mit gleichem Namen, aber unterschiedl icher Bedeutung 
haben, je nachdem, welches Worterbuch aktiv ist. 

Nehmen Sie an, Sie wollten einen "Spickzettel " fur Geschichtszahlen 
anlegen. Sie konnen das naturlich so tun, daft die Zahl , die Sie 
sich merken wollen, gleichzeitig das definierte Wort ist 

: 333 

." Bei Issus Keilerei" 

ein Datum, das jeder kennt, der in Geschichte aufgepaftt hat. 

Es ist zwar ganz schon, dafS nun 333 immer den Text " Bei Issus Kei - 
lerei" aufruft. Gleichzeitig aber ist 333 als normale Rechengrbfte 
nicht mehr zu gebrauchen. Wegen der vielen Geschichtszahlen ware 
der ACE fur das normale Rechnen bald unbrauchbar, darum FORGET 
333. 

Es ist viel sicherer, solche Spez i a I i taten in einem eigenen Worterbuch 
unterzubri ngen . Wir nennen es HISTORIE und eroffnen es mit 

VOCABULARY HISTORIE 

Es geschehen zwei Dinge: 

1 . Ein Leitwort { "Worterbuch-Def i n i t ions-Wort" ) H ISTORIE wird def i - 

niert, dessen Aufgabe es ist, HISTORIE zu aktivieren. Dieses Wort 
ist Bestandtei I des FORTH-Worterbuches. 

2. Ein neues Worterbuch HISTORIE wird erof f net . Bisher enthalt dieses 
Worterbuch noch kein eigenes Wort, nicht einmal seinen eigenen 
Namen. Aber alle Worter des FORTH-Worterbuches sind bereits 
dar in en thai ten . 

FORTH ist der "Vater" von HISTORIE, weil das Leitwort von HISTORIE 

i n FORTH eingefugt wurde. Wird in ei nem Worterbuch ein Wort 

gesucht, aber nicht gefunden, dann erfolgt die weitere Suche im 
"Vater "-Worterbuch . 

Nehmen Sie VLIST. Sie sehen die FORTH-Worter , wie gewohnlich. Sie 
beginnen mit dem Leitwort HISTORIE. 

Tasten Sie jetzt HISTORIE ein. Damit wird HISTORIE zum Con tex t- Worter- 
buch, jenes, in das wir Worter eingeben wo I len. Mit VLIST konnen 
wir jetzt das Worterbuch HISTORIE mit alien darin vorkommenden 
Wortern anzeigen. Danach folgen die Worter seines "Vaters", namlich 
FORTH. Bisher gibt es dabei naturlich noch keinen Unterschied. 

Wir wollen jetzt neue Worter in das Worterbuch definieren. Durch die 
Eingabe seines Namens haben wir HISTORIE bereits zum Context- 
Worterbuch gemacht. Damit konnen aber nur Worter aufgerufen werden. 
Neue Worter werden aber immer ins laufende (Current) Worterbuch 
eingetragen, und das ist bisher noch FORTH. Erst mit dem Wort 
DEFINITIONS wird das Contex t-W6rterbuch auch das Current-Wbrterbuch . 



115 



115 



Nachdem H ISTOR !E jetzt Context-und Curren t-W6rterbuch ist , konnen 
wir unsere Zahlen eingeben. 



333 



Bei I ssus Kei !erei 



1492 



Entdeckung Amerikas" 



1836 

." Erste Eisenbahn Nuernberg-Fuerth" 



Mi t VLIST sehen Sie a I le bisher definierten Worter, auch die des 
FORTH-Worterbuchs. Die Eingabe FORTH VLIST dagegen zeigt nur die 
FORTH Worter, nicht unsere Geschichtszahlen. Im FORTH ha ben auch 
die Zahlen 333, 1492 und 1836 ihre ursprungliche Bedeutung als 
RechengrbfJen w ieder . 

Wie arbeiten Worterbucher? In Kapitel 20 haben wir festgestel I t , daR 
im Header eines Wortes ein Verbi ndungsgl ied enthalten ist, das auf 
das vorher definierte Wort hinweist. Das stimmt aber nicht ganz: Der 
Hinweis erfolgt vielmehr auf das zuletzt im I aufenden ( current ) Wbrter- 
buch definierte Wort, und es konnen inzwischen du re ha us Worter in 
einem anderen Wdrterbuch defintert worden sein. In unserem Beispiel 
hangt 1836 an 1492, und 1492 an 333. Diese Kette bildet das 
Worterbuch HISTORIE. Durch eine besondere Art der Verbindung wird 
das Worterbuch HISTORIE an seinen Vater FORTH angehangt. 

Wenn jetzt mit FORTH VOCABULARY wieder FORTH current wird, dann 
schlieRt das nachste hier definierte Wort an HISTORIE an, denn dies 
war ja das zuletzt in FORTH definierte Wort. Auf diese Weise konnen 
sich Worterbucher uberlappen. 

Fassen wir noch einmal zusammen: 

1. Ursprungl ich existiert nur das Worterbuch FORTH. 

2. Es konnen zwei Worterbucher zugleich aktiv sein. Das Con text-Worter- 
buch wird fur die Suche nach Wdrtern verwendet , das Current-Wbr- 
terbuch fur die Definition neuer Worter. 

3. VOCABULARY definiert ein neues Worterbuch und das dazugehbrige 
Leitwort. Das Leitwort ist Bestandteil seines "Vater"- (des Current-) 
Wbrterbuches. 

4. Mit DEFINITIONS wird das Context- auch zum Current-Wbrterbuch . 

5. Sucht das System nach einem Wort, beginnt es die Suche im Context- 
Wbrterbuch und setzt sie bei Bedarf im "Vater"-Wbrterbuch fort. 
Die Suche endet ietztl ich im FORTH, denn FORTH ist Adam und Eva 
al lenWbrterbucher . 



Das Parameterfeld eines Leitworts hat folgenden Aufbau: 

Zwei Bytes en thai ten die Adresse des N amen si angenfeldes des neues ten 
Wortes im Worterbuch. Damit kann die Suche nach einem Wort begonnen 
werden ; diese Adresse ist aber gleichzeitig auch die Verbi ndungsadresse 
fur ein neues Wort. 

Ein Byte enthal t immer . Dieses Byte dient zur Verkettung der Worter- 
bucher un tereinander . Hat ein Worterbuch einen "Nachkommen", ist 
dessen erstes (-altestes) Wort hier verkettet. 
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Zwei Bytes enthalten die Adresse der entsprechenden beiden Bytes in 

einem anderen Wbrterbuch (die Bytes heifien "Worterbuch-Verkettung" ) 

Folgt man dieser Kette, beginnend im neusten Wbrterbuch, findet man 

jeweils das vorhergehende Wbrterbuch. Im FORTH sind die beiden Bytes 
dann 0. 

Drei Variable haben mit Wbrterbuchern zu tun. Die beiden ersten , 
CONTEXT und CURRENT, enthalten jeweils die Parameterfel d-Adressen 
des Context-bezw . Current-Wbrterbuches . 

Die dritte Variable hat keinen Namen, aber die Adresse 15413. I hr 
Wert ist die Adresse der beiden Bytes, die die Worterbuch-Verkettung 
im neusten Wbrterbuch enthalten. Von hier aus kann man alle Wbrter- 
bucher der Reihe nach ansprechen. 

Sie mussen vorsichtig sein mit FORGET und LOAD. 

Eine Regel fur FORGET: Vergessen Sie immer nur Wbrter aus einem Wbr- 
terbuch auf einmal. Kommen Sie mit FORGET namlich uber die Grenze 
eines Wbrterbuches , geht dessen Leitwort mit verloren. Die Wbrterbuch- 
Verkettungen stimmen nicht mehr. 
Auch mit LOAD geht die Verkettung verloren. 

Zusammenfassung: 

Wbrterbucher - Context und Current 

Leitwbrter, Verkettungen 

FORTH-Wbrter FORTH, VOCABULARY, DEFINITIONS, CONTEXT. CURRENT. 
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KAPITEL 23 

INNERHALB DER DOPPELPUNKT"DEF I N ITION 

In diesem Kapitel wird erklart, wie wir mehr Einflufr auf Doppelpunkt- 
Definitionen bekommen kbnnen. Diese Aussagen treffen auch fur Defini- 
tionen m i t DEFINER oder (wie wir noch sehen werden) mit COMPILER zu . 

Wird ein Wort innerhalb einer Doppelpunkt-Def ini t ion aus dem Eingabe- 
bereich gelesen, dann erfolgt keine sofortige Ausfiihrung, sondern es 
wird als Teil der Definition abgespeichert . Wir befinden uns im 
Kompi ler-Modus . Das heifit , daft ein Wort als Bestandteil der Defini- 
tion in Maschinensprache ubersetzt und im Wbrterbuch gespeichert wird. 
(engl , : comp i le) . 

Normal erweise befindet sich der Compu ter im I n terpreter-Modus . E i n 
eingegebenes Wort wird ubersetzt und sofort ausgefuhrt (engl , : in terpret ) 

Sie kbnnen aber aus einer Doppel punkt-Definition zeitweise in den 
Interpreter-Modus zuruckschal ten , wenn Sie die Wbrter [ und ] be- 
nu tzen . 

[ schaltet in den Interpreter-Modus 

] schaltet in den Komp i ler-Modus. 

Nur im Interpreter-Modus gibt der Computer OK aus. So erinnert er 
Sie daran, in welchem Modus er gerade arbeitet. 

Sie verwenden z.B. in einer Definition zwei Zahlen und wollen sie ein- 
t as ten , in dem Sie verschiedene Zahlenbasen benutzen. Wahrend Sie 
die Basis verandern , gehen Sie mit [ und ] in den I n terpreter-Modus. 
Nehmen wir das Wort TAB aus Kapitel 12, Ubung 4 dazu. Hier kommt 
die Zahl 31 vor, die der binaren 11111 entspricht. Sie konnen TAB 
auch so eintasten 

: TAB 

( Tabel lenende ) 

15388 @ - 

[ 2 BASE C! ] 

11111 

[ DECIMAL ] 

AND SPACES 

Jetzt geben Sie ein 

LIST TAB 

Im Listing finden Sie nichts mehr von dem, was Sie im Interpreter- 
Modus eingegeben haben. 11111 ist in 31 umgewandelt worden. 

Das Wort ist also eine Besonderhei t , denn obwohl der Computer im 

Komp i ler-Modus ist, wenn er [ antrifft, fuhrt er es aus, anstatt es 
ins Wbrterbuch zu speichern . Deshalb nennt man [ auch ein Sofort-Wort 
(eng. : immediate) , ein Wort also, das immer sofort ausgefuhrt wird , 
auch im Komp i ler-Modus . 

Sie kbnnen I hre eigenen Sofort -Wbr ter sehr leicht def inieren . Dies ge- 
schieht zunachst wie Ciblich. Danach aber fuhren Sie das Wort 
IMMEDIATE aus. IMMEDIATE verwandelt das neueste Wort im Wbrterbuch 
in ein Sofort-Wort . 
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Wenn Sie vorhatten, mehrere Wortdef in i t ionen in Binar- und Dezirnal- 
Schreibweise zu verwenden , kbnnte es nutzlich sein zu definieren 

: BAS2 

2 BASE C! 



IMMEDIATE 

: BAS10 
DECIMAL 



IMMEDIATE 

Dann ist es mbglich, TAB so zu schreiben 

: TAB 

( Tabel lenende - ) 
15388 @ - 
BAS2 11111 BAS10 
AND SPACES 

Wiederum erscheinen BAS2 und BAS10 nicht im Listing. 

Eine An wendungsmog I i chkei t von [ und ] ist, daB Sie Rechnungen wah- 
rend einer Wortdef i ni t ion ausfuhren konnen. Daruber hinaus kann das 
Ergebnis dieser Rechnung mit dem Sofort-Wort LITERAL in die Definition 
komp iliert werden, als ob Sie es direkt eingegeben batten. 

Wollen Sie den Bildschirm mit Punkten full en , mussen Sie 23 :,: 32 
Punkte eingeben. Vor ei nem Compu ter zu sitzen und manuell 23 :,: 32 
ausrechnen zu sol I en , ist schon eine Zumutung. Mit LI TERAL konnen 
Sie direkt definieren 

: PUNKTE 
CR 

[ 23 32 * ] LITERAL { 23 32 *) 

DO 

LOOP 

Der Kommentar { 23 32 *) scheint zunachst uberflussig. Im Listing 
finden Sie aber keine Spur mehr von LITERAL, der Kommentar wird 
Sie wieder daran erinnern, was vorher gewesen ist. 

Wir haben bisher Wbrter kennengelernt, die im Komp iler-Modus fur 

die spatere Ausfuhrung gespeichert werden, und Wbrter , die sofort 

ausgefuhrt werden. Es g i bt nun einige Wbrter, die Beides konnen 
mussen . 

; hat eine sofortige Wirkung, die sofort in den Interpreter-Modus zu- 
ruckfuhrt. Es muR aber auch kompiliert werden, weil es das Ende 
der spater auszuf uhrenden Definition markiert. Es hat eine Kompilier- 
zeitWirkung (" In dieser Definition gibt es nichts mehr zu kompilie- 
ren"), und eine Laufzei t-Wi rkung (" Die Definition ist abgeschlossen , 
es gibt nichts mehr zu tun"). 

Auch LITERAL hat eine solche Doppelfunkt ion . Wahrend der Kompilierung 
wird die Zahl erarbeitet und in die Definition eingebaut, wahrend 
des echten Ablaufs wird die kompilierte Zahl in den stack gebracht 
und verarbeitet. 



119 



119 



Auch IF, THEN und DO arbeiten ahnlich. Wahrend der Komp i I ierung 
wird die Struktur des Worts erarbeitet, wahrend der Ausfuhrung werden 
die notwendigen Sprunge Liber die Programmabschni tte ausgefuhrt. 
Solche Wbrter heiB en Kompi ler-Worter , weil sie Dinge ins Worterbuch 
komp i I ieren . 

Mit dem Wort COMPILER kbnnen Sie eigene Komp i ler-Worter definieren. 
Bevor wir aber erklaren, was COMPILER tut, mussen wir uns ein wenig 
naher mit den Besonderhei ten des Komp i I ierens bef assen . 

Jedes FORTH-Wort hat, wie wir aus Kapitel 20 wissen, ein Codefeld 
im Header. Dessen Adresse ist die Codefel d-Adresse , die das Wort 
FIND auf dem stack ablegt. Wird das Wort in die Definition eines 
anderen Wortes kompiliert, geschieht nichts weiter, als daB seine 
Codefeld- Adresse ins Worterbuch ubernommen wird ( dazu wird ; 

benotigt). Deshalb heifit die Codefeld-Adresse auch oft Kompi I ier-Adres - 
se. 

Ein Wort, das die Komp i I ier-Adresse verwendet, ist EXECUTE ( Kompi- 
lieradresse - ). Es nimmt eine Komp i I ieradresse vom stack und fuhrt 
das Wort aus, z.B. 

FIND DUP EXECUTE 
tut das Gleiche wie DUP. 

Eine einfache Doppel punkt-Def ini tion enthalt in ihrem Parameterfel d 
eine g^nze Liste von Komp i I ieradressen . Urn das Wort auszufuhren, 
nimmt ACE die erste dieser Adressen, sucht das zugehorige Wort und 
fijhrt dieses aus, kehrt dann zur nachsten Kompi Ieradresse zuruck 
und so weiter. Wenn er den ; erreicht, weiB er, daB das Wort 
ausgefuhrt ist. 

Wenn Sie z.B. definieren 

: 2* 
DUP + 



dann hat die Definition fur 2* 



Header fur 2* 
Komp il ieradresse 



fur DUP 



Kompi 1 ieradresse 
fur ; 



r 



Kompi 1 ieradresse 
fur + 



| Header fur DUP | 




Header fur + 



Header fUr 



i 



Parameterfeld 

fUr DUP | 



Parameterfeld 
fur + 



Parameterfeld 

fur ; | 



1 20 1 20 

( DUP , + und ; sind im ROM gespeichert und ihre Parameterfel der 
sind sehr un terschiedl ich } . 

Diese Form ist die einfachste. Oftmals aber mussen h inter der Kompi- 
lieradresse noch weitere I nformat ionen angefuhrt werden . LITERAL kom- 
piliert z.B. eine Zahl in die Definition. Diese Zahl wird unmittelbar 
hinter der Komp i I ierungsadresse von LITERAL gespeichert. Genauso wer- 
den auch direkt eingetastete Zahlen gespeichert. 

Diese Zusatz information heiRt Operandenfeld . Kompi I ieradresse und Ope- 
randenfeld zusammen heiBen ein komp i I iertes Wort . 

Ein weiteres Beispiel ist IF. Sein Operandenfeld hat zwei Bytes, die 
aussagen, wie weit zu springen ist, urn uber den Programmabschni tt 
IF. ..ELSE hin wegzukommen , wenn die Bedingung falsch ist. 

Ein eigenes kompiliertes Wort erzeugen Sie, indem Sie festlegen 

1. Wie das Operandenfeld aussieht, und 

2. wie das kompilierte Wort ausgefuhrt wird. 

Die Festlegung erfolgt mit den zwei Wortern COMPILER und RUN5> . Sie 
treten immer gemeinsam auf wie DEFINER und D0ES>. 

Das Wort 2LITERAL wirkt wie LITERAL, jedoch auf vier Bytes statt 
auf zwei, es kann also auf Gleitkomma- oder doppelt lange Ganzzahlen 
angewandt werden 

4 COMPILER 2LITERAL 

SWAP , , 
RUNS 

DUP @ SWAP 2+ @ 

In der Kompi I ierzei t werden zwei Eintragungen vom stack genommen 
und mit , , ins Worterbuch eingefugt. Dies geschieht vor RUNS> . 
Die Laufzei t-Aktivi tat ist der Tei I nach RUNS > . Sie hinterlaftt die 
Adresse des Operandenfel des auf dem stack. Damit kann man die dort 
gespeicherte vier Byte lange Zahl holen. 

Die 4 vor CO MP I LER sagt aus, wieviel Bytes in das Operandenfeld ge- 
bracht werden so Men. Wenn diese Zahl variieren kann, verwenden Sie 
-1 COMPILER, und wa'hrend der Kompi I ierzei t werden die tasachlich 
benotigten Langen in die Bytes eingesetzt. So arbeiten z.B. ( und ."« 

Urn Ihnen zu zeigen, wie 2LITERAL anzuwenden ist, wollen wir ein 
Wort schreiben, das 1/7 zu einem im stack gespeicherten Wort addieren 
soil 

: 1/7+ 

1 . 7. F/ F+ 

Das Wort wird naturlich viel schneller verarbeitet, wenn Sie statt 
1/7+ seinen Dezimalwert 0.142857 eingeben 

: 1/7+ 

0.142857 F+ 
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Da es aber lastig ware, diese Zahl vorab auszurechnen , kbnnen Sie 
einfach eingeben 

: 1/7+ 

[ 1. 7. F/ ] ( 1/7) 
2LITERAL F+ 

In der Kompi I ierzei t wird in die Definition von 1/7+ ein kompiliertes 
Wort eingesetzt: Zunachst die eigene Komp i I ieradresse und dann das 
Operandenfeld mit der Glei tkommazahl . Wahrend der Laufzeit wird die 
Zahl aus dem Operandenfeld auf den stack kopiert. 

Seien Sie vorsichtig, wenn Sie 1/7+ editieren. Der Li sting-Abl auf weift 
nichts mit dem Operandenfeld anzufangen, er ignoriert es einfach. 
Sie sehen nur 

: 1/7+ 
( 1/7) 
2LITERAL F+ 

Der einzige Hinweis auf das Operandenfeld besteht im Kommentar. 
Beim Editieren mussen Sie den Rechenvorgang fur 1/7 komplett neu 
eingeben . 

Nutzlich ist auch das Wort HERE ( - Adresse). Es iegt auf dem stack 
die nachste freie Adresse des Worterbuchs ab. An diese Stelle wird 
das erste Byte eines neuen Wortes gespeichert. SJe konnen damit prij- 
fen, wie voll der Speicher inzwischen geworden ist. 

' Zusammenf assung : 

Kompiler- und Interpreter-Modus 

Sofort-Worte , Kompi I ierworte 

Kompilierte Worter: Kompi I ieradresse und Operandenfeld 

FORTH-Worter [, ], IMMEDIATE, EXECUTE, COMPILER, RUNS >, HERE 

Ubungen : 

EXECUTE kann zusammen mit einer Komp i I ier-Adresse als gespeicherter 
Variablen eingesetzt werden . Ein Beispiel: Sie haben zwei Methoden , 
mit unwi 1 1 kommenen Anfragen fertig zu werden 

: GROB 

CR ." LASSEN SIE MICH IN RUHE" 
CR ." UND HAUEN SIE AB" 
CR ." SIE DUMMKOPF" 



: NETT 

CR ." IHRE FRAGE IST SEHR INTERESSANT" 

CR ." ES WIRD MEINEM KOLLEGEN MEIER" 

CR ." EINE EHRE SEIN, SIE ZU BEANTWORTEN" 

FIND NETT VARIABLE METHODE 

So, wie die Dinge jetzt stehen, enthalt METHODE die Komp i I ieradresse 
von NETT. Aber wenn Sie mit dem linken FuB aufgestanden sind oder 
Ihr Kollege den Fragesteller wieder an Sie zuruckverwei st , konnten 
Sie eingeben 

FIND GROB METHODE ! 

Mit METHODE ? EXECUTE 

finden Sie dann die passende Antwort. 
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Das ist zwar sehr nutzlich, aber bei Verwendung von REDEFINE stellt 
es doch eine erhebl iche Beeintrachtigung dar. REDEFINE andert die 
Kompi I ieradresse eines Worts, aber es weiB nicht, wie es die Werte 
von Variablen wie METHODE festlegen soil. Das mussen Sie selbst tun. 
Geandert werden die Kompi I ieradressen der neueren Wbrter. 

In ahnlicher Weise kann ■ auch LOAD Kompi I ieradressen verandern. VVenn 
bereits ein Worterbuch gespeichert ist und Sie ein neues vom Band 
laden, werden alle Kompi I ieradressen des neuen Worterbuches verandert. 
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KAPITEL 21 

SPEICHERAUSLEGUNG 

Bestimmle Speicherbereiche haben definierte Aufgaben. 
Wir lassen die festgelegte Speichereintei lung folgen: 



Adressen 



Hexadezimal 



Dezimal 



Inhalt 



1FFF | - 8191 



2000 - 23FF 



2400 



26FF 



2700 




9984 




2701 


- 27FF 


9985 


- 10239 


2800 


- 2BFF 


10240 


- 11263 



2C00 - 2FFF 

3000 - 3BFF 

3C00 - 3C3F 

3C40 - 3FFF 



il 92 - 9215 



9216 - 9983 



11264 - 12287 

12288 - 15359 

15360 - 15423 

15424 - 16383 



ROM. Die gespeicherte Information 
kann nicht Liberschrieben werden 
( es sei denn, Sie bringen Ihren 
ACE zum Rdntgen). Computer-Pro- 
gramme incl. eingebaute FORTH- 
Wbrter . 

RAM. Der gleiche Speicheri nhal t 
wie in den Adressen 2400 - 27 FF . 
Jedes dieser Bytes hat also zwei 
Adressen. Je nach gewahlter Adres- 
se hat Lesen oder Schreiben unter- 
schiedliche Wirkung. Die niedrigere 
Adresse gibt FORTH-Programmen 
eine Prioritat, die hbhere Adresse 
bevorzugt die Schaltkreise fur die 
Bi Idschi rmsteuerung . S.Kap.14,Ub.1 

Video RAM. Er enthalt das Fernseh- 
bild rn i t dem ASCII Code jedes 
der 24 :;: 32 - 768 Zeichen. 

RAM, enthalt Byte 

RAM, enthalt den PAD (s.Kap.16) 

RAM, der gleiche Inhalt wie der 
Speicherbereich 2C00 - 2FFF und 
gleicher Auswirkung wie beim Video 
RAM. 

RAM, enthalt Zeichensatz, die 
Punktmuster fur 128 Zeichen (siehe 
Kap.12). In diesen Speicher kann 
nur geschrieben werden. Lesen 
ist nicht mdgl ich . 

Drei identische Kopien des RAM 
3C00 bis 3FFF. 

RAM, enthalt die Sy stemvariablen . 
die genauere Beschreibung dieser 
Variablen folgt unten. 

RAM, enthalt das Worterbuch, den 
DATA- und den RETURN-stack 
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Das Worterbuch beginnt bei 3C40 mi t dem Lei t wort FORTH und fahrt 
mit I hren eigenen Wortern fort. Sein Ende wird lediglich durch die 
Anzahl und den Umfang der gespeicherten Wbrter bestimmt. Auf das 
Worterbuch folgen 12 unbenutzte Bytes zum Schutz gegen einen Unterlauf 
(engl . : underflow) des stack (d.h. der stack ist vol I ig leer). Danach 
beginnt der stack aufsteigend. 

Der RETURN-stack beginnt bei 3FFF und wachst ruckwarts in Richtung 
des DATA-stack. Wenn beide zusammenkommen , ist kein Speicherp I atz 
mehr vorhanden und der Computer meldet ERROR 1. 



| Worterbuch | 12 Bytes | stack 
3C40 



RETURN-stack| 
3CFF 



Mit einer Speichererwei terung (an der Ruckfront aufsteckbar) haben 
Sie wesentlich mehr Platz fur Programme und stacks zur Verfugung. 
Er beginnt mit Adresse 4000 (16384) und geht bis FFFF (65535). 



Systemvari abler 



In der nachfol genden Liste sind neben den Hex- 
noch engl i schsprachi ge AbkLirzungen angegeben. 
( aufler wen i gen fett ged ruck ten , wie z .B . BASE ) , 



und Dezimal ad res sen 
Diese Namen haben 
fur den ACE keine 



Bedeutung , sie sol I en ledigl ich als Gedachtn isstutze dienen < 



Adi 


*esse 


Hex 


Dezi 


3C00 


15360 


3C13 


15379 


3C18 


15384 


3C1A 


15386 


3C1C 


15388 


3C1E 


15390 


3C20 


15392 


3C22 


15394 



Name 

FP-WS 

LISTWS 

RAMTOP 



SCRPOS 



CURSOR 
ENDBUF 



Lange 

19 
5 
2 



Bedeutung 



Arbeitsbereich fiir Gleitkommaarithmet. 

Arbeitsbereich fur LIST und EDIT 

Die hbchste Adresse im RAM. Wenn Sie 
am Ende Platz reservieren wollen.der 
fur Worterbuch und stacks nicht ver- 
fligbar sein soil, kdnnen Sie dessen 
Startadresse in RAMTOP einsetzen und 
QUIT eingeben. Mit QUIT wird der 
RETURN-st ack geloscht und bei der 
Adresse aus RAMTOP neu begonnen. 

Adresse des letzten Bytes fiir eine 
formatierte Ausgabe im PAD {benutzt 
durch Wbrter wie #, HOLD etc.) 

Cursor-( Anzeige-) Position. Die Adres- 
se, an der das nachste Zeichen ange- 
zeigt werden soil (TAB in Kap.12 be- 
nutzt diese Variable). 

Startadresse der aktuellen logischen 
Zeile im Eingabebereich 

Adresse des CURSORS im Eingabebereich 

Endadresse der aktuellen logischen 
Zeile im Eingabebereich 
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Adresse 
Hex |Pezimal 



3C24 15396 



3C26 



3C28 
3C29 



15398 

15399 

15400 
15401 



15403 



KEYCNT 

STATIN 
EXWRCH 



FRAMES 



Lange 



Bedeutung 



Anfangsadresse des Eingabebereichs . 
Der Bereich selbst ist im Video-RAM 
gespeichert . 

ASCII Code der zuletzt gedr lick ten 
Taste. 

Beide Systemvariablen werden von der 
Programmroutine benutzt die das 
Tastenfeld abfragt. 

Normalerweise . Kann aber geandert 
werden urn auszugebende Da ten an ein 
bestimmtes Gerat zu addressieren (z.B. 
Drucker). Vergleichen Sie das folgende 
Kapi tel . 

Ei ne doppe It lange Zahl, die die Zeit 
vom Einschalten des ACE in 1/50-Sek. 
zahlt. Kann als Uhr benutzt werden. In 
Ubung 1 haben wir Wdrter fur das Stel- 
len und Anzeigen der Uhrzeit angegeben 



Vorsicht ! 

Bei Uberlauf der Uhr Uber Hex FFFF FFFF wird die nachste Systemvariable 
XCCORD in Mi tleidenschaft gezogen . BEEP und Bandoperationen unterbrechen 
den Zahler zeitweise. 



3C2F 



3C30 



3C33 



3C35 



3C37 



3C39 



15407 

15408 
15409 

15411 



XCOORD 



CURRENT 



CONTEXT 



VOCLNK 



STKBOT 



1 



Die von PLOT zuletzt verwendete 
X-Koordinate (s.Kapitel 13, Ubung 1 , 
DRAW. 

Die von PLOT zuletzt verwendete 
Y-Koordinate . 



Leitworts der 
Worterbuchs ( s .Kap. 



Parameteradresse de 

gerade verwendeten 

22). 

Parameter-Adresse , . , 

des Leitworts 

des Context-Worterbuchs (s. Kap. 22) . 



Adresse des 4. Bytes 
( Wortverkettung-Voc 
im Leitwort des zul 
Worterbuchs { s .Kapi 

Adresse des Bytes, 
Eintrag ins Wbrterb 
Ende des aktuellen 
15415 @ kann durch 
werden. 



im Parameterfeld 
abulary linkage) 
etzt definierten 
tel 22). 

bei dem der nachste 
uch beginnt , d . h. 
Worterbuchs +1 . 
HERE ausgefUhrt 



Die Adresse des Langenfeldes im neues- 
ten Wort des Worterbuchs. Wenn das 
Langenfeld richtig geladen ist, kann 
DICT -0 sein. 
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Adresse 
Hex iDezimal 



3C3B 15419 



3C3D 



3C3E 



15421 



ERR NO 



FLAGS 



Lange | Bedeutung 



3C3F | 15423 



| BASE 



I 1 



Adresse des ersten Bytes nach dem TOS. 
Mit 15419 @ erhalten Sie die Adresse 
des obersten Eintrags . In Ubung 2 
bringen wir ein Wort, das den gesamten 
Inhalt des stack anzeigt ohne inn 
zu zerstbren. 

Normalerweise 255, d.h. "kein Fehler" . 
Wenn ABORT verwendet wird kann ERR_NO 
einen Wert zwischen und 127 anneh- 
men. Dann wird angezeigt ERROR, ge- 
folgt von ERR_NO 

Zeigt den Zustand verschiedener Sys- 
temteile an, wobei -jedes Bit eine be- 
stimmte Zuordnung hat. 1st Bit 2 auf 1 
gesetzt, zeigt es eine unvollstandige 
Definition am Ende des Wbrterbuchs an. 
Mit ABORT wird die Definition entfernt 
Bit 3 auf 1 zeigt an, dafi Ausgabedaten 
in den Eingabebereich ubertragen wer- 
den sollen. Bit 4 auf 1 markiert 
INVISIBLE-Modus. Bit 6 auf 1 markiert 
Kompiler-Modus . 

| Zahlenbasis 



Ubungen : 

1. Wbrter, mit denen Sie die Uhrzeit stellen und wieder ablesen kbnnen 

: STELLEN 

{ Stunden, Minuten - ) 
BEGIN 

INKEY 0= ( Warten auf ENTER) 
UNTIL 

CR ." Bitte Taste betatigen" 
SWAP 60 * + ( Zeit in Minuten) 

3000 U* { Zeit in funfzigstel Sek . , Doppel I ange ) 
BEGIN 

( Warten auf Tastendruck) 

INKEY 
UNTIL 
15403 ! 
15405 ! 15403 ! 

(In Ubung 5 erfahren Sie den Trick, mit dem wir hier arbeiten mussen) 

: MINSEC 

( Sekunden oder Minuten doppelt lang - Minuten oder 
Stunden einfach lang) 

( Schreibt Sekunden oder Minuten in den PAD) 

60 U/MOD SWAP 

# # DROP DROP ( Sekunden oder Minuten) 

ASCII : HOLD 



Fortsetzung Fol gesei te 
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: ZEIT 

{ zeigt mit formatierter Ausgabe an) 
15403 @ 15405 @ 

OVER OVER D+ ( hundertstel Sekunden ) 
<# # # ( Sekundenbruchtei le) 

ASCII . HOLD ( Im stack jetzt Zeit in Sekunden) 
MINSEC ( Sek .anzeigen ,Zei t in Minuten im stack lassen) 
MINSEC ( Minuten anzeigen, Stunden des stack) 
#S #> TYPE 



2. Anzeige im stack 

: .S 

15419 @ HERE 12 + 
( Anfang, Ende) 
OVER OVER - 
IF ( stack nicht leer) 

DO 
I @ . 2 

+ LOOP 
ELSE 

DROP DROP 
THEN 



3. Geben Sie ein 

: SYSVAR 

( zeigt standig alle Sy stemvari ablen an) 

CLS 

BEGIN 

AT 15360 80 TYPE 

UNTIL 

Sie sehen sofort , daB FRAMES standig zahlt. Die zweite sich 
andernde Variable ist KEYCNT. Links davon steht KEYCOD. Sie 
zeigt Daten an, wenn Sie eine Taste betatigen. Am Ende erkennen 
Sie den Header von FORTH. 

Warum flackert die Folgezeile alle 5 Sekunden? (Hinweis: Was ge- 
schieht, wenn das zweite Byte von FRAMES den Wert 13 annimmt, 
den ASCII-Code fur Zei I envorschub? ) 

4. Der Zahler FRAMES, der die Wechsel des Fernfehbi I des zahlt, wird 
nicht genau jede 1/50 Sekunde wei tergescha I tet , sondern jede 
624/625 funfzigstel Sekunde. Das Wort TIME gewinnt dadurch jedesmal 
in 625 Sekunden eine Sekunde, pro Tag etwa 2 1/2 Minuten. Fur 
eine korrekte Zeitangabe muB man dies korrigieren. 

5. Wahrend Sie FRAMES mit 

15403 @ 15405 @ 

lesen, kbnnte das kleinerwert ige Byte gerade den Wert 65535 (d.h. 
sein Maximum) haben . Wahrend des Lesevorgangs wird FRAMES wei- 
tergezahlt: Die Bytes ab 15403 werden zu 0, und die Bytes ab 
15405 urn 1 erhoht. Ihre Zahl ist infolgedessen urn 65535 zu hoch 
(etwa 20 Minuten). Das kann Ihnen sogar wahrend der Ausfuhrung 
von @ passieren. Sie konnen diesen bosen Fehler umgehen, indem 
Sie FRAMES zweimal lesen und den kleineren der beiden Werte neh- 
men . 
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Etwas ahnliches kann auch in STELLEN geschehen . Wir setzen 
zunachst die zwei Bytes bei 1 5403 auf , so daft wir keine 
Uberschneidung mit den Werten erhalten, die wir dann eingeben. 

5. Im Kapitel 20 haben wir festgestel 1 1 , daR bei Verwendung von 
DEFINER ein Fehler wahrend der Definition eines anderen Worts die- 
ses hal bdef inierte Wort im Speicher stehen laRt. Deshafb brauchten 
wir auch in Kapitel 21 das Wort NACHRICHT, falls ein Fehler wah- 
rend der Bereichsdef in i t ion aufgetreten ware. 

Bit 2 in FLAGS erzwingt die Lbschung der teilweisen Definition, 
wenn ABORT ausgefuhrt wird. Das Wort NACHRICHT hat folgende Form 

: NACHRICHT 

( setzt Bit 2 von FLAGS auf 1 und bricht ab) 
15422 C@ 4 OR 15422 C! ABORT 
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KAPITEL 25 

MASCHINENCODE 

Man konnte nach all em Vorangegangenen meinen, daR der ACE ein Com- 
puter 1st, der FORTH versteht. In Wahrheit hat er keine Ahnung, 
was FORTH 1st. Sein Herz ist ein Mikroprozessor , ein Schwerarbei ter , 
der alles tut, was es zu tun gibt: Er fragt die Tastatur ab, 
ubersetzt die Eingabe, fuhrt sie aus und gibt die Ergebnisse wieder 
aus . 

Der Mi kroprozessor wird auch CPU ( eng I . : Central Processing Unit- 
Zentraleinheit) genannt. Seine Arbeitsanweisungen entnimmt er dem ROM . 

Diese Anweisungen konnen (naturlich) nicht in FORTH geschrieben wer- 
den . Sie sind vielmehr in der Masch i nensprache festgelegt, der einzigen 
Sprache, die der Prozessor wirklich versteht. Jeder Befehl ist in Bytes 
verschlusselt. Beim ersten Einschalten muR der Compu ter zunachst 
ganz am Anfang beginnen. Er holt sich ein Byte aus Adresse 0, 
fuhrt den darin verschl ussel ten Befehl aus, kommt danach zum nach- 
sten und wird so vom festgelegten Ablauf gefuhrt. In den verschl ussel - 
ten Befehlen ist auch definiert, wie FORTH-Wbrter zu in terpret ieren 
und auszufuhren sind. 

Wollten wir uns mit dem Z80-Masch i nencode ausfuhrlich bef assen , wur- 
den wir ein weiteres Buch dieses Umfangs fuiten. Darum empfehlen wir, 
bei Interesse sich ein Buch zu di esem Them a zu beschaffen. Wenn Sie 
sich aber mit den folgenden Ausfuhrungen begnugen wollen, dann dur- 
fen Sie nicht erwarten, alles zu verstehen. 

Das Programmieren in Maschinensprache hat vor alien anderen Sprachen 
drei Vorteile: Die Programme sind schneller, brauchen weniger Platz, 
und sie kommen in die verstecktesten Ecken des Computers. FORTH ist 
in alien drei Bereichen schon sehr gut, so daft Sie nicht unbedingt 
etwas anderes brauchen. Aber manchmal kann die Maschinensprache 
doch recht nutzlich sein. 

Um die Maschinensprache einzusetzen, brauchen Sie das FORTH-Wort 
CALL ( Adresse -). 

CALL nimmt die Adresse eines Maschinen codes vom stack und fuhrt 
den dort versch I ussel ten Befehl aus. Dies dauert solange, bis es 
einen Befehl jp ( iy ) f indet . (Jeder Befehl wird in zwei Formen 
dargestellt: einmal in Maschi nencode , zum anderen auch lesbar in 
einer mnemotechn i schen Form, also einer Gedachtn isst utze. jp (iy) ist 
diese mnemotechn i sche Form). Der Maschi nencode fur jp (iy) besteht 
aus zwei Bytes, 253 und 233 (s.Anhang A). 

Am einfachsten laftt sich der Masch i nencode im Parameterfeld eines 
FORTH-Worts un terbr i ngen . Dafur benutzen wir ein Def i n i t ionswort 

: DEFINER CODE 
DOES> 
CALL 



Die Aufgabe eines Worts, das mit CODE definiert wird, ist es , den Ma- 
schinencode in seinem Parameterfeld ablaufen zu lassen. Das Feld 
wird mit C, erzeugt. 
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Wir geben ein Beispiel: Der Maschinenbefehl halt (Code 118} halt den 
Prozessor an, bis er ein Signal interrupt erhalt. Im ACE g i bt der Com- 
puter dem Prozessor jede funfzigstel Sekunde einen Interrupt, halt kann 
fur terrni n ierte Unterbrechungen benutzt werden. 

Sie brauchen dazu den Maschinencode 

halt 118 

jp (iy) 253,233 

Bringen wir also diese drei Bytes in das Parameterfeld eines Wortes 
HALT. 

CODE HALT 118 C, 253 C, 233 C, 

Wenn Sie jetzt HALT ausflihren, ruft sein Aktionsteil diesen Maschinen- 
code mit CALL auf: Jetzt konnen wir PAUSE definieren 

: PAUSE 

( Lange der Pause in 1/50 Sekunden - ) 



DO 

HALT 
LOOP 

Wenn Sie schon etwas Liber die Z80-Masch i nensprache wissen, werden 
Sie es vielieicht fur n utz I i ch halten, mehr Liber die Restart -Befehle 
zu erfahren: 

rst 8 (Code 207) gibt ein Zeichen aus dem Register A aus. Normaler- 
weise geht dies auf den Bildschirm. Sie konnen dies aber dazu be- 
nutzen, ein ex t ernes Gerat anzusprechen, in dem Sie die Sy stemv ar i ab I e 
EXWRCH aktivieren (s.Kapi tel 24 ) . Dieser Restart benutzt das Register 
A und die H i I f sregi ster B,C,D,E,H und L. 

rst 16 (Code 215) legt das Registerpaar DE auf den stack und verwen- 
det die Register H und L. 

Im Gegensatz zu anderen FORTH-Sy stemen im Z80-Prozessor verwendet 
ACE den Maschi nen-stack als RETURN-stack und baut sich den DATA- 
stack gesondert auf. 

rst 24 (Code 233) ubertragt den TOS in die Register DE und 
verwendet dazu Register H und L. 

rst 32 (Code 231) ist im Wesentlichen ABORT. Auf den Restartbef ehl 
sollte ein Byte mit Fehlercode folgen; dieses wird in die Sy stemvariable 
ERR NO angelegt, bevor ABORT ausgefuhrt wird. 

Einige Warnungen an Fachleute: 

1. Die Register IX und IY durfen benutzt werden. Ihr urspriJngl icher 
Inhalt muft aber am Ende wieder zuruckgeschrieben werden (beach- 
ten Sie spater die Bemerkungen zu IY). Alle ubrigen Register stehen 
zur freien Verfugung, aber machen Sie keinen Unsinn mit dem stack- 
Pointer SP . 

2. REDEF INE und LOAD konnen Worter im Worterbuch transport ieren 
(s.Kapitel 23, Ubung 1). Wenn Sie Maschinenbefehle im Worterbuch 
halten, wie oben mit HALT gezeigt, mussen diese entweder verschieb- 
lich (relocatable) sein, oder Sie mussen sehr vorsichtig mit 
REDEFINE und LOAD umgehen . 
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Die Tatsache, daft ein Programm in Maschi nencode, das mit CALL aufge- 
rufen wird, mit jp (iy) endet, trifft auch fur alle in Maschi nencode 
definierten FORTH-Wbrter zu . Solche Wbrter heiRen Stammwbrter. Es gibt 
viele Stammwbrter unter den 142 FORTH-Wbrtern im ROM. Durch Veran- 
derung des Registers IY kbnnen Sie das Ende jedes Stammworts beein- 
f lussen . 

Im Normalfal I weist das Register IY auf bestimmte Maschi nencodes hin , 
die Fehler prufen, bevor die Arbeit fortgesetzt wird. Gepruft werden: 
Space (Abstand zwischen DATA- und RETURN-stack), stack underflow 
( Datenunterl auf im stack), und die BREAK-Taste. Sie kbnnen Zeit ge- 
winnen, indem Sie IY immer auf das nachste auszuf uhrende Wort hin- 
weisen lassen. Zwei Wbrter, FAST und SLOW helfen Ihnen dabei . 

FAST ( - ) schaltet alle Fehlerpriifungen aus. Dadurch werden die 
Programme urn ca. 25 % schneller. 

SLOW { - ) schaltet die Fehlerprufungen wieder ein. 

Denken Sie aber immer daran: FAST ist gefahrlich. Sie sol I ten es nur 
im Zusammenhang mit sorgfaltig getesteten Programmer! benutzen. Ins- 
besondere wird naturlich auch BREAK nicht mehr abgefragt. 

Zusammenfassung: 



Z80-Ma5chi nencode 

FORTH-Wbrter CALL, FAST, SLOW 

Ubungen : 

1. Arbeiten Sie CODE weiter aus, damit Sie mit seiner Hilfe das Ma- 
schinencode-Parameterfeld einfacher aufbauen kbnnen. Sie kbnnten 
z.B. die Bytes des Maschinencodes in den stack stellen und ihm 
sagen , wieviele vorhanden sind. Vielleicht lassen Sie jp (iy) auto- 
matisch einsetzen. Im FORTH ware es kein Problem, ein komplettes 
Wbrterbuch ASSEMBLER anzulegen, das Ihnen erlaubt, die Abkurzun- 
gen der Maschinencodes statt der Zah lenkombi nat ionen zu verwen- 
den. Im ASSEMBLER ist dann z.B. HALT definiert als 

: HALT 
118 C, 

Mit CODE wurde ASSEMBLER zum Con tex t-Wbrterbuch . 

2. Andern Sie PAUSE so, daft die Pause bei Tastendruck beendet wird. 

3. Wenn Sie wissen wollen, wie das Codefeld eines Worts funkt ioniert , 
kbnnen wir es jetzt erklaren. Es ist die Adresse einiger Befehle 
in Maschinencode , die bei Ausfuhrung des Worts ablaufen. Sie bilden 
das komplette Wort (bei Stamm wbrtern ) , oder sie legen fest , wie 
eine Folge von komp i I ierten FORTH-Wbrtern ablaufen so II (bei Dop- 
pelpunkt-Def ini t ionen ) . 

In einem Stammwort ist das Codefeld die Adresse des Parameterfel des 
und das Parameterfel d enthalt den Maschinencode. DUP ist ein 
Stammwort, deshalb fuhren 

FIND DUP 2+ CALL 

und 
FIND DUP @ CALL 
beide DUP aus. Naturlich geht das auch einfacher. 
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KAPITEL 26 

WIR BAUEN DEN ACE WEITER AUS 

Uber die Steckerlei sten an der Ruckseite kann zusatzlich Elektronik 
(Peripherie) an den ACE angeschlossen werden . Normalerweise verwendet 
man dazu fertige Gerate, wie z.B. die von uns I ief erbaren Zusatzspei- 
cher oder einen Drucker. Es gibt auch Programme, mit denen solche 
Peripheriegerate gesteuert werden konnen . 

Sie konnen aber auch selbst Peripheriegerate aller Art bauen und an- 
schlieBen. Dazu mussen Sie nur wissen, wie I hr Gerat mit Ihrem Pro- 
grammen zusammenarbei tet und wie es physisch angeschlossen werden 

muB . 

Zunachst zur Kommun i kat ion . Der Z80-Prozessor unterhalt sich mit 
dem Rest der Welt, indem er Spannungen uber Leitungen anbietet. 
Grob gesagt, gibt es zwei Spannungszustande, hoch oder niedrig, die 
als oder 1 in terpret iert werden konnen. Acht Leitungen in einer 
Gruppe stellen 1 Byte dar. Es gibt eine solche Gruppe, die wir den 
Datenbus nennen . Sechzehn weitere Leitungen konnen eine Ganzzahl 
bilden, wir nennen diese Gruppe den Adreflbus . 

Der Prozessor liest und schreibt damit Speicherinhal te. Soil ein Byte 
in den Speicher geschrieben werden, s te I 1 1 er die Adresse in den 
Adreftbus und die Information in den Datenbus und gibt ein Signal 
aus, das den Speicher veranlaft t , die Da ten in die angegebene 
Adresse zu ubernehmen. En tsprechend verfahrt er auch beim Lesen 
ei nes By tes . 

Ganz ahnlich verfahrt er auch bei der Kommun ikat ion mit Peripherie- 
geraten . Es gibt 65536 l/O-Adressen (fur Input /Output), die Ports ge- 
nannt werden. Adressierung , Berei tstel len eines Bytes sowie das Signal 
an das Peripheriegerat werden genauso durchgefuhrt wie beim Speicher. 
Die Peripherie mufi diese Signale uberwachen . 

Fur den Kontakt zu den l/O-Ports stehen zwei Worter zur Verfugung: 
IN und OUT. Sie sind gleichbedeu tend mit den Speicherwortern C@ 
und C!. 

IN ( Adresse - Byte) liest ein Byte von dem Port mit der gegebenen 
Adresse. 

OUT ( Byte, Adresse - ) schreibt ein Byte zu dem Port mit der gege- 
benen Adresse. 



Vermeiden Sie bei der Festlegung von Port -Ad res sen fur Ihre Gerate 
die bereits vom ACE benutzten Adressen. Der Computer verwendet die 
geraden Zahlen, die ungeraden stehen zu Ihrer Verfugung. 

Wir haben zwei einfache Anwendungen in einem Paket zusammengef aR t . 
Die eine steuert eine Verkehrsampel , die andere schaltet ein Relais 
ein und aus. Sie brauchen nur einen l/O-Port (Adresse 1) und erwarten 
vom Datenbus die folgende Codierung 

1 Rotes Licht einschalten 

2 Gelbes Licht einschal ten 

3 Rot und gelb einschal ten 

4 Grun einschalten 
8 Relais einschal ten 
Alles ausschalten 



und alle anderen Signale aus 



1 33 1 33 

Dazu brauchen wir folgende FORTH-Worter 

: CHANGE 

( Daten -) 

( schreibt an I/O Port 1 ) 

1 OUT 



: ROFF 

( - ) 

( schaltet Relais aus) 

CHANGE 



RON 

( -) 

( schaltet Relais ein) 

8 CHANGE 



WAIT 

( Verzogerung - Verzogerung} 

DUP 

DO 

LOOP 



DEFINER LICHT 

( Lampencode -) 
C, 
DOES> 

( Adresse des Lampencodes - ) 
C@ CHANGE WAIT 



1 LICHT ROT 

2 LICHT GELB 

3 LICHT RT&GB 

4 LICHT GRUEN 

: FOLGE 

( Verzogerung - Verzogerung) 
ROT RT&GB GRUEN GELB 



ABLAUF 

( Verzogerung - Verzogerung) 
BEGIN 

FOLGE 
UNTIL 



10000 ABLAUF durchlauft standig die Ampel schal tung und laBt jede Far- 
be wahrend der Warteschleife von 10000 LOOPs eingeschal tet . 

Dazu zeigen wir Ihnen einen Schaltplan fur die Elektronik: 
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Traffic Light Controller 



Use 2N3904 transistors 




The signals to this circuitry (A1, IORQ and so on) need to be connected to the 
computer through an edge connector, a connector that clips over the back edge of 
the circuit board Here is the arrangement of the signals on the computer. 



"i ii i i i i i i i i 11 i i i i i i i i 



6 Schalter 

ausgeschal tet (0) sein kann. Das 

uber die jeweilige Schal terstel I ung " 



Wir lassen noch ein Beispiel fur Input folgen. Es tastet 
ab , von denen jeder ein- (1) oder 
gelesene Byte bringt die Information 
in 6 versch iedenen Bits 

DEFINER SCHALTER 

( Bitwert -) 
C, 
DOES> 

( Adresse des Bitwerts 



MERKER) 

{ hinterlaftt 1 fur geschlossenen , 
C@ 1 IN AND = 0= 



fur offenen Schalter) 



1 SCHALTER S0 

2 SCHALTER S1 
4 SCHALTER S2 
8 SCHALTER S3 

16 SCHALTER S4 
32 SCHALTER S5 

Die Worter S0 bis S5 prufen die entsprechenden Schalter und setzen 
einen MERKER im stack, 1 fur den geschlossenen Schalter. Schalter 
kann als Morsetaste benutzt werden . 



MORSE 

BEGIN 

S0 

IF 

100 10 BEEP 
THEN 



UNTIL 
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Hier ist ein Wort CHECK, das pruft, ob alle Schalter geschlossen 
sind, und ein anderes, ALARM , das ein Signal erzeugt, wenn dies 
nicht der Fal I ist 

: CHECK 

( - MERKER) 

1 IN 63 AND 63 = 



ALARM 
BEGIN 

CHECK 0= 

IF 

100 10( 



BEEP 



THEN 



UNTIL 



Wir haben wieder l/O Adresse 1 verwendet. Dazu der Schaltkreis 



Switch detector 




Die Schalter S2 bis S5 sind genau wie die Schalter S0 und SI mit ei nem 
1 k-W iderstand ausgelegt und mit den St i f ten 6, 10, 12 und 14 verbun- 
den . 

Unsere Peripherie hat einen I/O Port mit der Nummer 1 benutzt. Per i - 
pheriegerate konnen aber auch Speicheradressen verwenden, sie heiften 
dann memory-mapped ( speichergebundene ) Peripheriegerate . Es ist da- 
rauf zu achten, daB sie nicht Speicherplatz benutzen, der intern benb- 
tigt wird (s.Kapitel 24). Alle geraden I/O Port-Adressen sind fur die 
interne Verwendung des ACE reserviert, auch wenn er nur acht davon 
benutzt, namlich (in Hex) FEFE, FDFE , FBEE , F7FE , EFFE, DFFE , BFFE 
und 7FFE. Das niedrigerwertige Byte ist immer FE. Das hoherwertige 
Byte hat immer ein Bit und alle anderen 1. 

W i rd von ei nem dieser Ports gelesen, dann wird 

a) eine halbe Reihe der Tastatur abgefragt. Welche Ha I ft e dies ist, 
bestimmt die im hoherwert igen Teil der Port-Adresse. Die niedri- 
gerwertigen 5 Bits zeigen, ob eine Taste gedrLickt ist (0) oder nicht 
(D. 

b) Das Signal am Stecker EAR wird in Bit 5 gelesen . 

c) Die Lautsprechermernbran wird eingeschal tet . 

Wird an einem dieser Ports geschrieben dann 

- wird Bit 3 der Daten an den Stecker MIC ubergeben , 

- der Lautsprecher ausgeschal tet . 



1 36 1 36 

Zusammenfassung: 

l/O Ports, Port-Adressen 
FORTH-Worter IN, OUT 

Ubungen : 

1. Uberarbeiten Sie das Wort CHANGE, so daft es anstatt externe 
Schaltungen zu betreiben, etwas auf dem Bildschirm anzeigt. 

2. Geben Sie ein 

: KRACH 

[ 16 BASE C! ] 
BEGIN 

FEFE IN FEFE OUT 
UNTIL 

Schreck I ich ! 

Warum andert sich der Ton, wenn Sie SHIFT drucken? (Denken Sie 
daran , daft der Computer standig auf BREAK pruft). 

3. Verwenden Sie das Relais im Verkehrsampel-Spiel, urn Lichter zu 
schalten. Noch besser, wenn Ihr K asset ten recorder eine Buchse 
hat, uber die ein Mikrofon ein- und ausgeschaltet werden kann, 
dann versuchen Sie dies m i t dem Relais zu tun. 

4. Die Signale am Ausgang der Schaltplatine sind weitgehend fur 
diese Art der Z80 Compu ter standardisiert, sie kbnnen aber von 
anderen Typen abweichen. Viele Zusatze zum Sinclair ZX81 arbeiten 
auch mit dem ACE, wenn Sie die en tsprechenden Anschlusse mitein- 
ander verdrahten. Fur diesen Fall 1st es am z weckmaB i gsten , 
einen Adapter mit einer Steckerleiste fur den ACE und einer 
gedruckten Schaltung fur den AnschluB des Zusatzgerates zu bauen 
und dazwischen die Verdrahtung vorzunehmen. 



T I INT DA D3 05 06 02 01 00 SLOT I 0' 

i I : i i i i I u I I 

ROM A1 A5 A6 A7 Afl A9 AIQ Al' AW All AM Alj A3 A2 Al A0 $ EARTH ' +BV ' bV 

WO"* c — 

The RAM C.S. and ROM C.S. lines on the ZX81 , and the WE on the Ace, don't need 
connecting. 
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ANHANG A 



DER ZEICHENSATZ 



Code Zeichen 



12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



neue Zei I e 



nicht verwendet 



Wagenrlicklauf 
nicht verwendet 



b 

a 

y 

r 

i 

.- 

B 



nicht verwendet 



SPACE 



Hex 


Z80 Assembler 


-nach CB -nach ED 


00 


nop 


rlc 


b 




01 


Id bc,NN 


rlc 


c 




02 


ld(bc),a 


rlc 


d 




03 


inc be 


rlc 


e 




04 


i nc b 


rlc 


h 




05 


dec b 


rlc 


1 




06 


Id b,N 


rlc 


(hi) 




07 


rica 


rlc 


a 




08 


ex af , af ' 


rrc 


b 




09 


add hi, be 


rrc 


c 




0A 


Id a, (be) 


rrc 


d 




0B 


dec be 


rrc 


e 




0C 


inc c 


rrc 


h 




0D 


dec c 


rrc 


1 




0E 


Id c,N 


rrc 


(hi) 




0F 


rrca 


rrc 


a 




10 


djnz DIS 


r\ 


3 




11 


Id de,NN 


rl 






12 


Id (de),a 


rid 






13 


inc de 


rl 






14 


i nc d 


rl 


1 




15 


dec d 


rl 






16 


Id d,N 


rl 


hi) 




17 


rla 


rl 


a 




18 


jr DIS 


rr 


b 




19 


add hl,de 


rr 


c 




1A 


Id a,(de) 


rr 


d 




IB 


dec de 


rr 


e 




1C 


inc e 


rr 


h 




1D 


dec e 


rr 


1 




1E 


Id e,N 


rr 


(hi) 




1F 


rra 


rr 


a 




20 


jr nz,DIS 


sla 


b 




21 


Id hi ,NN 


sla 


c 




22 


Id (NN),hl 


si a 


d 




23 


inc hi 


sla 


e 




24 


inc h 


sla 


h 




25 


dec h 


sla 


1 




26 


Id h,N 


sla 


(hi) 




27 


daa 


sla 


a 




28 


jr z,DIS 


sra 


b 




29 


add hi ,hl 


sra 


c 




2A 


Id hi ,(NN) 


sra 


d 




2B 


dec hi 


sra 


e 




2C 


inc 1 


sra 


h 




2D 


dec 1 


sra 


1 




2E 


• Id 1 ,N 


sra 


(hi) 




2F 


cpl 


sra 


a 




30 


jr nc, D IS 








31 


Id sp,NN 








32 


Id (NN),a 








33 


inc sp 








34 


inc (hi) 








35 


dec (hi) 








36 


Id (hi ) ,N 








37 


scf 








38 


jr c,DIS 


srl 


b 




39 


add hi ,sp 


srl 


c 
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Code 


Zeichen 


58 




59 


; 


60 


< 


61 


= 


62 


> 


63 


7 


64 


e 


65 


A 


66 


B 


67 


C 


68 


D 


69 


E 


70 


F 


71 


G 


72 


H 


73 


I 


74 


J 


75 


K 


76 


L 


77 


M 


78 


N 


79 





80 


P 


81 


Q 


82 


R 


83 


S 


84 


T 


85 


U 


86 


V 


87 


W 


88 


X 


89 


Y 


90 


Z 


91 


[ 


92 


\ 


93 


] 


94 


t 


95 




96 


£ 


97 


a 


98 


b 


99 


c 


100 


d 


101 


e 


102 


f 


103 


9 


104 


h 


105 


i 


106 


j 


107 


k 


108 


I 


109 


m 


110 


n 


111 


o 


112 


P 


113 


q 


114 


r 


115 


s 


116 


t 


117 


u 



Hex 


Z8f 


J Assembler 


-nach 


CB 


-nach ED 


3A 


Id 


a,(NN) 


sr 


d 




3B 


dec sp 


sr 


e 




3C 


i nc a 


sr 


h 




3D 


dec a 


sr 


1 




3E 


Id 


a,N 


sr 


(hi) 




3F 


ccl 




sr 


a 




40 


Id 


b,b 


bi 


0,b 


in b,(c) 


41 


Id 


b 


,c 


bi 





c 


out (c) ,b 


42 


Id 


b 


,d 


bi 





d 


sbc hi, be 


43 


Id 


b 


,e 


bi 


t 


e 


Id (NN),bc 


44 


Id 


b 


h 


bi 





h 


neg 


45 


Id 


b 


, 1 


bi 


t 


1 


retn 


46 


Id 


b 


(hi) 


bi 





(hi) 


im 


47 


Id 


b 


, a 


bi 





a 


Id i,a 


48 


Id 


c 


b 


bi 


1 


b 


in c, (c) 


49 


Id 


c 


c 


bi 


1 


c 


out ( c ) ,c 


4A 


Id 


c 


d 


bi 


1 


d 


adc h 1 , be 


4B 


Id 


c 


e 


bi 


1 


e 


Id bc,(NN) 


4C 


Id 


c 


h 


bi 


1 


h 




4D 


Id 


c 


1 


bi 


1 


1 


ret i 


4E 


Id 


c 


(hi) 


bi 


1 


(hi) 




4F 


Id 


c 


a 


bi 


1 


a 


Id r,a 


50 


Id 


d 


>b 


bi 


2 


b 


in d,(c) 


51 


Id 


d 


,c 


bi 


2 


c 


out ( c ) , d 


52 


Id 


d 


,d 


bi 


2 


d 


sbc hi , de 


53 


Id 


d 


,e 


bi 


2 


e 


Id (NN),de 


54 


Id 


d 


h 


bi 


2 


h 




55 


Id 


d 


,1 


bi 


2 


1 




56 


Id 


d 


(hi) 


bi 


2 


(hi) 


im 1 


57 


Id 


d 


, a 


bi 


2 


a 


Id a , i 


58 


Id 


e 


b 


bi 


3 


b 


in e, (c) 


59 


Id 


e 


c 


bi 


3 


c 


out ( c ) ,e 


5A 


Id 


e 


d 


bi 


3 


d 


adc hi ,de 


5B 


Id 


e 


e 


bi 


3 


e 


Id de,(NN) 


5C 


Id 


e 


h 


bi 


3 


h 




5D 


Id 


e 


1 


bi 


3 


1 




5E 


Id 


e 


(hi) 


bi 


3 


(hi) 


im 2 


5F 


Id 


e 


a 


bi 


3 


a 


Id a , r 


60 


Id 


h 


b 


bi 


4 


b 


in h,(c) 


61 


Id 


h 


c 


bi 


4 


c 


out (c),h 


62 


Id 


h 


,d 


bi 


4 


d 


sbc hi, hi 


63 


Id 


h 


e 


bi 


4 


e 


Id (NN),hl 


64 


Id 


h 


,h 


bi 


4 


h 




65 


Id 


h 


1 


bi 


4 


1 




66 


Id 


h 


,(hl) 


bi 


4 


(hi) 




67 


Id 


h 


a 


bi 


4 


a 


rrd 


68 


Id 




b 


bi 


5 


b 


in l,(c) 


69 


Id 




c 


bi 


5 


c 


out (c),l 


6A 


Id 




d 


bi 


5 


d 


adc hi, hi 


6B 


Id 




e 


bi 


5 


e 


Id hi ,(NN) 


6C 


Id 




h 


bi 


5 


h 




6D 


Id 




1 


bi 


5 


1 




6E 


Id 




(hi) 


bi 


5 


(hi) 




6F 


Id 




a 


bi 


5 


a 


rid 


70 


Id 


(nl),b 


bi 


6 


b 


in f,(c) 


71 


Id 


(hl),c 


bi 


6 


c 




72 


Id 


(hl),d 


bi 


6 


d 


sbc hi , sp 


73 


Id 


(hl),e 


bi 


6 


e 


Id (NN),sp 


74 


Id 


(hl),h 


bi 


6 


h 




75 


Id 


((■ 


iD,i 


bi 


6 


1 
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Code 


Zeichen 




118 


V 




119 


w 




120 


X 




121 


y 




122 


z 




123 


{ 




124 


1 




125 


} 




126 


^ 




127 


© 




128 








129 








130 








131 








132 








133 








134 








135 




nicht 


v 


136 








137 








138 








139 








140 








141 








142 








143 








144 


□ 




145 


□ 




146 


n 




147 


B 




148 


a 




149 


a 




150 


s 




151 


a 




152 








153 








154 








155 




n icht 


V 


156 








157 








158 








159 








160 






161 




nverse 


i 


162 




nverse 


ii 


163 




nverse 


# 


164 




nverse 


$ 


165 




nverse 


% 


166 




nverse 


& 


167 




nverse 


t 


168 




nverse 


< 


169 




nverse 


) 


170 




nverse 


* 


171 




nverse 


+ 


172 




nverse 


> 


173 




nverse 


- 


174 




nverse 




175 




nverse 


/ 


176 




nverse 






Hex Z80 Assembler -nach CB -nach ED 



76 


halt 




bit 


6, (hi) 






77 


Id (hi), a 


bit 


6, a 






78 


Id a 


>b 


bit 


7,b 


in a, (c) 


79 


Id a 


,c 


bit 


7,c 


out (c 


, a 


7A 


Id a 


,d 


bit 


7,d 


adc hi 


, SP 


7B 


Id a 


,e 


bit 


7,e 


Id sp, 


nn 


7C 


Id a 


,h 


bit 


7,h 






7D 


Id a 


,l 


bit 


7, I 






7E 


Id a 


,(hl) 


bit 


7, (hi) 






7F 


Id a 


, a 


bit 


7, a 






80 


add 


a,b 


res 


0,b 






81 


add 


a ,c 


res 


0,c 






82 


add 


a,d 


res 


0,d 






83 


add 


a ,e 


res 


0,e 






84 


add 


a,h 


res 


0,h 






85 


add 


a, I 


res 


0,l 






86 


add 


a, (hi) 


res 


0,(hl) 






87 


add 


a, a 


res 


0,a 






88 


adc 


a,b 


res 


1 ,b 






89 


adc 


a ,c 


res 


1 ,c 






8A 


adc 


a,d 


res 


1 ,d 






8B 


adc 


a ,e 


res 


1 ,e 






8C 


adc 


a,h 


res 


1 ,h 






8D 


adc 


a, I 


res 


1 ,l 






8E 


adc 


a, (hi) 


res 


l,(hl) 






8F 


adc 


a , a 


res 


1 ,a 






90 


sub 


b 


res 


2,b 






91 


sub 


c 


res 


2,c 






92 


sub 


d 


res 


2,d 






93 


sub 


e 


res 


2,e 






94 


sub 


h 


res 


2,h 






95 


sub 


I 


res 


2, 1 






96 


sub 


(hi) 


res 


2, (hi) 






97 


sub 


a 


res 


2, a 






98 


sbc 


a,b 


res 


3,b 






99 


sbe 


a ,c 


res 


3,c 






9A 


sbc 


a,d 


res 


3,d 






9B 


sbc 


a ,e 


res 


3,e 






9C 


sbc 


a,h 


res 


3,h 






9D 


sbc 


a, I 


res 


3, 1 






9E 


sbc 


a, (hi ) 


res 


3, (hi) 






9F 


sbc 


a ,a 


res 


3, a 






A0 


and 


b 


res 


4,b 


Idi 




A1 


and 


c 


res 


4 ,c 


cpi 




A2 


and 


d 


res 


4,d 


i n i 




A3 


and 


e 


res 


4,e 


outi 




A4 


and 


h 


res 


4,h 






A5 


and 


I 


res 


4, 1 






A6 


and 


(hi) 


res 


4, (hi) 






A7 


and 


a 


res 


4, a 






A8 


xor 


b 


res 


5,b 


Idd 




A9 


xor 


c 


res 


5,c 


cpd 




AA 


xor 


d 


res 


5,d 


ind 




AB 


xor 


e 


res 


5,e 


outd 




AC 


xor 


h 


res 


5,h 






AD 


xor 


I 


res 


5, 1 






AE 


xor 


(hi) 


res 


5, (hi) 






AF 


xor 


a 


res 


5, a 






B0 


or t 




res 


6,b 


Idir 
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Zeichen 




177 


inverse 


1 


178 


inverse 


2 


179 


inverse 


3 


180 


inverse 


4 


181 


inverse 


5 


182 


inverse 


6 


183 


inverse 


7 


184 


inverse 


8 


185 


inverse 


9 


186 


inverse 




187 


inverse 


i 


188 


inverse 


< 


189 


inverse 


= 


190 


inverse 


> 


191 


inverse 


9 


192 


inverse 


9 


193 


inverse 


A 


194 


i nverse 


B 


195 


inverse 


C 


196 


inverse 


D 


197 


inverse 


E 


198 


inverse 


F 


199 


i nverse 


G 


200 


inverse 


H 


201 


inverse 


1 


202 


inverse 


J 


203 


inverse 


K 


204 


inverse 


L 


205 


inverse 


M 


206 


inverse 


N 


207 


inverse 





208 


inverse 


P 


209 


inverse 


Q 


210 


inverse 


R 


211 


inverse 


S 


212 


inverse 


T 


213 


inverse 


U 


214 


inverse 


V 


215 


inverse 


w 


216 


inverse 


X 


217 


inverse 


Y 


218 


inverse 


z 


219 


i nverse 


[ 


220 


inverse 


\ 


221 


i nverse 


] 


222 


inverse 


+ 


223 


inverse 




224 


inverse 


£ 


225 


inverse 


a 


226 


inverse 


b 


227 


inverse 


c 


228 


inverse 


d 


229 


inverse 


e 


230 


inverse 


f 


231 


inverse 


g 


232 


inverse 


h 


233 


inverse 


i 


234 


inverse 


j 


235 


inverse 


k 
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Hex Z80 Assembler -nach CB -nach ED 



B1 


or c 


res 


6,c cpir 


B2 


or d 


res 


6 , d inir 


B3 


or e 


res 


6 ,e ot i r 


B4 


or h 


res 


6,h 


B5 


or 1 


res 


6,1 


B6 


or (hi) 


res 


6, (hi) 


B7 


or a 


res 


6, a 


B8 


cp b 


res 


7,b Iddr 


B9 


cp c 


res 


7,c cpdr 


BA 


cp d 


res 


7,d indr 


BB 


cp e 


res 


7,e otdr 


BC 


cp h 


res 


7,h 


BD 


cp 1 


res 


7 ,l 


BE 


cp (hi) 


res 


7, (hi) 


BF 


cp a 


res 


7, a 


C0 


ret nz 


set 


0,b 


CI 


pop be 


set 


0,c 


C2 


jp nz,NN 


set 


0,d 


C3 


jp NN 


set 


0,e 


C4 


call nz,NN 


set 


0,h 


C5 


push be 


set 


0,1 


C6 


add a,N 


set 


0,(hl) 


C7 


rst 


set 


0,a 


C8 


ret z 


set 


1 ,b 


C9 


ret 


set 


1 ,c 


CA 


jp z,NN 


set 


1 ,d 


CB 




set 


1 ,e 


CC 


call z,NN 


set 


1 ,h 


CD 


call NN 


set 


1 ,l 


CE 


adc a,N 


set 


1,(hl) 


CF 


rst 8 


set 


1 ,a 


D0 


ret nc 


set 


2,b 


D1 


pop de 


set 


2,c 


D2 


jp nc,NN 


set 


2,d 


D3 


out (N),a 


set 


2,e 


D4 


call nc,NN 


set 


2,h 


D5 


push de 


set 


2, I 


D6 


sub N 


set 


2, (hi) 


D7 


rst 16 


set 


2, a 


D8 


ret c 


set 


3,b 


D9 


exx 


set 


3,c 


DA 


jp c,NN 


set 


3,d 


DB 


in a,(N) 


set 


3,e 


DC 


call c,NN 


set 


3,h 


DD 


stellt Instrukt. 
mit ix voran 


set 


3, 1 


DE 


sbc a,N 


set 


3, (hi) 


DF 


rst 24 


set 


3, a 


E0 


ret po 


set 


4,b 


El 


pop hi 


set 


4,c 


E2 


jp po,NN 


set 


4,d 


E3 


ex ( sp ) , h 1 


set 


4,e 


E4 


call po.NN 


set 


4,h 


E5 


push hi 


set 


4 ,l 


E6 


and N 


set 


4, (hi) 


E7 


rst 32 


set 


4, a 


E8 


ret pe 


set 


5,b 


E9 


jp (hi) 


set 


5,c 


EA 


jp pe,NN 


set 


5,d 


EB 


ex de,hl 


set 


5,e 



141 



141 



Code Zeichen 



236 

237 
238 
239 

240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 

, 254 
255 



inverse I 

inverse m 

inverse n 

inverse o 

inverse p 

inverse q 

inverse r 

inverse s 

inverse t 

inverse u 

inverse v 

inverse w 

inverse x 

inverse y 

inverse z 

inverse { 

inverse | 

inverse } 



Hex 

EC 
ED 
EE 
EF 
F0 
F1 
F2 
F3 
F4 
F5 
F6 
F7 
F8 
F9 
FA 
FB 
FC 
FD 

FE 

FF 



Z80 Assembler -nach CB -nach ED 



call pe,NN 

xor N 

rst 40 

ret p 

pop af 

JP P,NN 

di 

call p,NN 

push af 

or N 

rst 48 

ret m 

Id sp.hl 

jp m ,NN 

ei 

call m,NN 

stellt Instrukt. 

mit iy voran 

cp N 

rst 56 



set. 5,h 

set 5,1 

set 5, (hi) 

set 5,a 

set 6,b 

set 6,c 

set 6,d 

set 6,e 

set 6,h 

set 6,1 

set 6, (hi) 

set 6, a 

set 7,b 

set 7,c 

set 7,d 

set 7,e 

set 7,h 

set 7,1 

set 7, (hi) 

set 7, a 
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M2 

ANHANG B 

FEHLERANZEIGEN 

Es gibt zwei Arten von Fehlern. Die harmlosere tritt auf, wenn der 
Computer im E ingabebereich ein undef iniertes Wort erkennt: er verwan- 
del t die MARKE in E und gibt I hnen die Chance zur Korrektur . Beach ten 
Sie bitte, daft E nicht immer einen Fehler anzeigt, sondern daft 
dieses Zeichen auch unter anderen Umstanden auftritt, z.B. wenn Sie 
EDIT benutzen und der Computer Ihnen mit fi anzeigt, daB Sie im 
E ingabebereich Anderungen vornehmen kbnnen . 

Bei der zweiten Art handett es sich um echte Fehler, und diese 
werden durch ERROR und dem zugehdrigen Fehlercode auf dem Bild- 
schirm angezeigt . Diese Fehleranzeigen mit ERROR., loschen den DATA- 
stack, den RETURN-stack und den E ingabebereich und gleichzeitig 
wird eine unvol I standige Definition im Worterbuch geloscht. 

Hier nun die einzelnen Fehlercodes mit der Erklarung ihrer Bedeutung 
und evtl. Ursachen. 

Fehlercode bedeu tet : 



1 Nicht genu gen d Speicherp I atz . Entweder haben Sie den DATA-stack 
oder den RETURN-stack Liber laden , oder Sie haben versucht , eine 
Eintragung ins Worterbuch zu machen , fur die dort kein Platz 
mehr war. Siehe Kapitel 5. 

2 "Underflow" im DATA-stack. Der Computer hat weniger als keine 
Zahl auf dem stack. Siehe Kapitel 5, Ubung 4 . 

3 Sie haben BREAK getastet. BREAK ist norma lerweise SHIFTED 
SPACE ; wan rend Sie mit Cassette arbeiten oder wahrend einer 
BEEP -Operation funktioniert die Taste 

auch ohne SHIFT als BREAK. 

4 Sie haben versucht, aufterhalb einer Wortdef i n i t ion ein Wort zu 
benutzen, welches nur innerhalb einer Wortdefinition zugelassen 
ist (Compiling-Wort). Kann verursacht werden durch IF, ELSE, 
THEN, BEGIN, UNTIL, WHILE, REPEAT, DO, LOOP, +LOOP, ; 
DOES > , RUNS> , ( , ." oder durch ein comp i I ierendes Wort, 
welches durch COMPILER definiert wurde. 

5 Ein Wort ist nicht richtig strukturiert. IF.. .THEN, IF. .ELSE. .- 
THEN, BEGIN. ..UNTIL, BEG IN . . .WH I LE . . .REPEAT , DO. ..LOOP, DO...- 
+LOOP, :...;, DEFINER. . .DOES > . . . ; und COMP I LER. . .RUNS> ...; 

mussen in richtiger Folge und vol I stand i g verwendet werden . 
Siehe Kapitel 10. 

6 Der Name eines neuen Wortes ist entweder zu kurz (d .h.erjfehl t vbl- 
lig), oder er ist zu lang {64 Zeichen oder mehr). Kann auftreten 
bei : , DEFINER, COMPILER, CREATE, CONSTANT, VARIABLE oder 
bei irgendeinem von Ihnen selbst definierten Wort, bei dem Sie 
DEFINER benutzt haben. 

7 Sie haben PICK oder ROLL mit oder negativem Operanden 
benutzt, Beachten Sie bitte, daft ein Operand -32768 nicht zu 
ERROR 7 fuhrt. Siehe Kapitel 6, Ubung 2. 
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8 Overflow bei Glei tkomrnaari thmet i k: Das Rechenergebn is ist zu 
groB fur den im ACE reservierten Glei tkommabereich . Kann auf- 
treten bei F+ , F- , F* oder F/. Tritt immer auf, wenn Sie durch 

zu dividieren versuchen. 

9 Versuch, in den E ingabebereich zu schreiben. Kann verursacht 
werden bei AT oder PLOT. 

10 Bandfehler. 

a) bei SAVE oder BSAVE - entweder kein Datenname vergeben 
oder keine Daten zur Sicherung vorhanden. 

b) bei VERIFY oder BVERIFY - Daten sind nicht (richtig) auf 
auf Band angekommen 

c) bei LOAD - der Datenbestand ist zu lang fur die verbleibende 
Speichergrofte 

d) bei BLOAD oder BVERIFY - der Datenbestand ist zu groft fur 
die vorher spezifizierte Lange. 

e) bei LOAD, VERIFY, BLOAD oder BVERIFY - Lesefehler. Entweder 
durch (teilweise) zerstorte Daten oder defektes Band. 

11 Fehler bei REDEFINE oder FORGET. 

Bei REDEF INE : Entweder ist das neueste Wort im aktuellen Vokabu- 
lar nicht auch das neueste im gesamten Worterbuch ; oder das 
a I te Wort wird nicht gefunden (oder ist im Festspeicher); oder 
das alte Wort wurde mit DEFINER oder COMPILER definiert, nicht 
aber das neue; oder es ist nicht mehr genugend Platz im 
Speicher (man benot igt sov iel Platz im Speicher , daB man zwei 
Kopien des neuen Wortes unterbringen kann, nachdem das alte 
Wort entfernt wurde) . 

Bei FORGET: Die im CONTEXT- und im CURRENT-Vokabu I ar gespei- 
cherten Texte sind verschieden. 

12 Unvollstandige Definition im Worterbuch - bestimmte Opera tionen 
sind dann nicht erlaubt. Kann verursacht sein bei REDEFINE, bei 
einer Bandoperat ion oder bei irgendeinem def i n ierenden Wort (wie 
unter ERROR 6 aufgefuhrt). Dieser Fehler behebt sich seibst, 
indem er die unvollstandige Definition aus dem Worterbuch ent- 
fernt. Wahrscheinlich haben Sie eine Def ini tion gestartet (mit :, 
DEFINER oder COMPILER), kamen mit [ zum i n terpret-modus und 
haben dann die nicht zulassige Operation versucht. 

13 Wort nicht gefunden (oder ist im Festspeicher oder ist ein 
festverdrahtetes FORTH -Wort . Kann au ft re ten bei FORGET, LIST 
oder EDIT. 

14 Wort ist nicht auflistbar, tritt auf bei LIST oder EDIT. Nur Worter, 
die mit : , DEFINER oder COMPILER definiert wurden, sind auf- 

1 istbar . 



ANHAN6 C 

DER JUPITER ACE - ZUM NACHSCHLAGEN 

Zeichen und Tastatur 

Der ACE benutzt den ASC I I -Zeichensatz mit folgenden speziellen Vor- 
schrif ten : 



Trennt logische Zeilen im E i ngabebereich 



Code 


Bedeutung 





Trennt loc 


13 


Carriage r 


16-23 


Graf i sche 


16 


■ 


17 


B 


18 


a 


19 


a 


20 


r 


21 


E 


22 


a 


23 


c 


96 


£ 


127 


s> 


128-255 


1 nverse-v i 



deo-Versionen der Zeichen bis 127 

Die Formen der Zeichen bis 127 sind im RAM gespeichert und 
konnen vom Benutzer selbst neu definiert werden. Jede Zei c hen form 
besteht aus einem Raster von 8x8 Punkten und ist in 8 hi ntereinander- 
fol gendenfBy tes gespeichert, mit der obersten Punktereihe in der Hex- 
Adresse 2C00 +■ 8 * ASCII-Code, und der untersten Punktereihe in der 
Hex- Adresse 2C00 + 8 * ASC I I -Code + 7. 

In jeder Reihe ist der am weitesten links stehende Punkt das signifi- 
kante Bit ( l=weifl ) . 

A I I e Zeichen konnen von der Tastatur erreicht werden. SHIFT wird 
fur Groflbuchstaben und Kontrollfunktionen gebraucht , SYMBOL SH I FT 
fur Sonderzeichen . Drei spezielle Eingabemodi konnen uber die Tasta- 
tur ein-und ausgescha I tet werden (unabhangig voneinander ) : CAPS 
LOCK schaltet von Klein- auf Groftbuchstaben urn, INVERSE VIDEO 
wandelt alle Zeichen in Negat i v-Schreibung urn, und GRAPHICS wandelt 
Zeichen in solche mit den Codes bis 31 , oder 128 bis 159 urn, 
indem es die Bits 5 und 6 des ASC I I -Code ersetzt . Alle Zeichen 
konnen durch Dauerdruck auf die jeweilige Taste wiederholt werden. 

Der E ingabebereich belegt die unterste Zeile auf dem Bildschirm und 
wird bei grofieren Eingaben nach oben erweitert. Alle Eingaben 
werden sofort links von der MARKE angezeigt. Die MARKE zeigt durch 
ihre Form auch den jeweiligen Eingabemodus an: Normal als Viereck, 
9 fur CAPS LOCK, g fur GRAPHICS, und E wenn der Computer die Auf- 
forderung ausgibt, etwas im E ingabebereich andern zu konnen. Die 
MARKE kann mit den Tasten SH I FTED 5,6,7 und 8 bewegt werden . 
DELETE Ibscht das Zeichen unmittelbar links von der MARKE, und 
DELETE LINE den gesamten E ingabebereich (aber beachten Sie EDIT). 

Ist ENTER gedruckt, nimmt der FORTH-Ubersetzer Wbrter aus dem Ein- 
gabebereich, kopiert sie oben auf den Bildschirm, und fuhrt sie aus 
(aber beachten Sie INVIS). Dies wird solange fortgefuhrt, bis entweder 
der E ingabebereich leer ist oder ein undef iniertes Wort gefunden wird. 
SPACE mit SH I FT arbei tet normalerweise wie BREAK und erzeugt ERROR 
3. 
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FORTH Worterbuch 

In den Er I auterungen verwenden wir folgende Kurzzeichen: 

n Einfachlange Ganzzahl 

d Doppeltlange Ganzzahl 

u Zahl (oder Darstellung) ohne Vorzeichen 

f Glei tkommazahl 

I Sofort auszuf uhrendes Wort 

C Ver wen dung des Worts nur im Comp i I er-Modus 

! ( n ,Adresse -) 

Eine einfachlange Zahl n wird in die gegebene 
Speicheradresse ubertragen 

# (ud1 - ud2) 

Fur formatierte Ausgabe. Nimmt eine Ziffer aus 
der doppel 1 1 angen Zahl ud1 und legt sie im Pad 
ab. ud2 ist der Quotient, der entsteht, wenn udl 
durch die Zahlenbasis dividiert wird. 

#> (ud - Adresse,n) 

Schl ieftt formatierte Ausgabe ab und hinterl aftt 
Adresse und Lange (n) der resu 1 1 ierenden Zeichen- 
folge im stack. 

#S (ud - 0,0) 

Verwendet # wiederholt (mindestens einmal ) , bis 
die doppeltlange Zahl im stack zu geworden 
ist. 

CI ( Anfang eines Kommentars. AbschluR mit ). 

* (nl ,n2 - n1*n2) 

*/ (n1 ,n2,n3 - (n1*n2)/n3) 

*/MOD n1,n2,n3 - Rest ,Quot ien t aus ( ( n1*n2 )/n3 ) 

+ n1 ,n2 - n1+n2) 

CI +LOOP (n -) 

Wird zusammen mit DO verwendet. Addiert n zum 
Schleifenzahler und springt zuruck, solange der 
Zahler noch kleiner (fur n^0) oder groRer (fur 
n <0) als ein gegebens Limit ist. 

(n -) 

Ubernimmt eine einfachlange Ganzzahl n ins Wor- 
terbuch . 

( nl ,n2 - n 1 -n2 ) 

(n -) 

Ausgabe auf Bildschirm mit nachfol gender Leerstelle 

CI ." ( - ) 

Gibt den nachfol gen den String aus. Begrenzung 
durch " 

/ (nl ,n2 - nl/n2) 

Division einfachl anger Zahlen mit Vorzeichen 

/MOD (n1,n2 - Rest , Quotient aus n1/n2) 

Der Rest hat das gleiche Vorzeichen wie der Divi- 
dent n1 . 
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0< 

0= 



1 + 
1- 
2+ 
2- 
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<# 



>R 



?DUP 



ABORT 



ABS 
ALLOT 



AND 
ASCI I 



(n - MERKER) 
Der Merker ist 



1 , wenn n negat i v . 



wenn n 



wenn n posi t i v . 



(n - MERKER) 
Der Merker ist 1 , 

(n - MERKER) 
Der Merker ist 1 . 

(n - n+1) 

(n - n-1) 

(n - n+2) 
(n - n-2) 
Beginn einer Doppelpunkt-Def in i tion 

Beendet Doppelpunkt- , DEFINER und COMPILER- 

Def ini t ionen 

(nl ,n2 - MERKER) 

Merker ist 1 , wenn nl < n2 

(-) 

Beginnt eine formatierte Ausgabe 

(nl ,n2 - MERKER) 

Merker ist 1, wenn n1 = n2 

(n1 ,n2 - MERKER) 

Merker ist 1 , wenn nl > n2 

(n - ) 

Ubertragt den T05 in den RETURN-stack . Mit I 

kann zuruckkop iert werden. 

(n - n,n) wenn n ^ 
( n - n ) wenn n - 

(Adresse - n) 

Hinterlafit im stack eine einfachlange Zahl n aus 

der gegebenen Adresse. 

Loscht DATA- und RETURN-stack, loscht alle un- 
vol I standigen Wbrter aus dem Worterbuch. Zeigt 
ERROR und den Inhalt des Bytes 3C3D (hex) an. 
Leert den E ingabebereich und gibt die Kontrolle 
an die Tastatur zuruck. 

(n - Absolutwert von n) 

(n - ) 

Reserviert n Bytes im Worterbuch, ohne sie mit 

Daten zu full en . 

(nl ,n2 - nl AND n2) 

Bitweise arbeitende Boolesche Operation 

Nimmt das nachste Wort aus dem E ingabebereich 

und gibt den A5C I l-Code seines ersten Zeichens 

aus. 

Beisp iel : 

: STERNE DO ASCII * EMIT LOOP ; 
( - ASCII-Code) im Interpreter-Modus 
( - ) im Komp i ler-Modus 
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AT 



BASE 



BEEP 



CI 



BEGIN 

BLOAD Name 



BSAVE Name 



BVERIFY Name 



C! 



C, 



Cg 



CALL 



CLS 
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(Zei le.Spalte - ) 

Setzt die MARKE- (Cursor-) Position auf im stack 

angegebene Zeile und Spalte. Es gibt 23 Zeilen 

(0 bis 22) und 32 Spalten (0 bis 31). Die Spalten- 

zahl wird Modulo 32 genommen . ERROR 9 wird an- 

gezeigt, wenn man versucht, in den E ingabebereich 

in der untersten Zeile zu schreiben. 

( - 15423) 

Eine 1 Byte lange Sy stemvari able, die die Basis 

des jeweils verwendeten Zahlensystems enthalt. 

( m ,n - ) 

Erzeugt einen Ton im Lau tsprecher . 8' ,: m = Schwin- 
gungslange in Mi krosekunden , n - Dauer in Milli- 
sekunden . 



(-) 

Verwendet m i t 



UNTIL oder WH I LE ... REPEAT 



(m ,n - ) 

Ladt n Bytes eines Byte Files "Name" von einer 
Kassette und beginnt bei Speicheradresse m. ERROR 
10, wenn das File mehr als n Bytes hat. 

(m,n - ) 

n Bytes ab Adresse m werden in ein Byte File 

"Name" auf der Kassette gesi chert. 

< m ,n - ) 

Maximal n Bytes des Bytefiles "Name" auf Kassette 
werden gegen Daten im RAM, beginnend ab m ge- 
pruft. Hat das File mehr als n Bytes, wird ERROR 
10 gemeldet. BLOAD und BVERIFY benutzen die 
Adresse, von der aus das Bytefile gesichert wurde, 
wenn m = ist. Fur n = spielt die Lange keine 
Rolle. 

f n , Adresse - ) 

Speichert das weniger signifikante»Byte von n in 

die gegebene Adresse. 

(n - ) 

Ubernimmt das weniger signifikante Byte von n 

ins Wbrterbuch. 

( Adresse - By te ) 

Holt den Inhalt der gegebenen Adresse in den 

stack . 

(Adresse - ) 

Fuhrt den in der Adresse angegebenen Maschinen- 

code aus. Der Code wird durch jp (iy) begrenzt. 

Beispiel in Hex: 

DEFINER CODE DOES> CALL 

CODE El FB C, FD C, E9 C, 

Das Wort El ermoglicht Unterbrechungen . 

<-) 

Loscht den Bildschirm und setzt die MARKE in des- 
sen obere linke Ecke. 
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COMP ILER Zusammen mi t RUNS> verwendet. Zur Definition 

neuer Komp i I er-Worter , also Wortern, die innerhalb 
von Def ini tionen sofort I nformationen ins Wbrter- 
buch kompilieren (man arbeitet haufig mit 
IMMEDIATE, aber COMPILER... RUNS> laftt sich 
mit EDIT besser verarbeiten. 

Das neue Kompi I ierwort erzeugt eine 2 Bytes lange 

Adresse, die auf eine Laufzei t-Akt ion hinweist , 

und im Bedarfsfall ein Operandenfeld . 

Format : 

n COMPILER Name 

Komp i I ier-Rout i ne 
RUNS> 

Aktions-Routine 



CONSTANT Name 



CONTEXT 



CONVERT 



CR 

CREATE Name 



n muB auf dem stack sein und stellt die Zahl 
der Bytes im Operandenfeld dar. Wenn n - -1 , 
dann mussen die ersten beiden Bytes die Gesamt- 
lange des restlichen Operandenfeldes beschreiben. 
"Name" ist der Name des neuen Komp i I ierworts . 
"Kompi I ier-Rout ine" ist der Teil, der das Operan- 
denfeld erzeugt, Achten Sie darauf , daft die Zahl 
der Bytes mit dem Wert n im stack ubereinstimmt. 
"Aktions-Routine" fuhrt die Aktion wahrend der 
Laufzeit aus. Sie wird uber die Adresse des Oper- 
andenfeldes im stack angesprochen . 

Bcachten Sie bitte: LIST und EDIT zeigen Opera n- 
denfelder nicht an, und REDEFINE korrigiert sie 
nicht . 

(n - ) 

Definiert eine Konstante mit dem gegebenen Namen 

und Wert n . 

( - 15411 ) 

Eine Sy stemvariable , die auf das Con tex t-W6rter- 

buch h i n wei st . 

( udl , Adressel - ud2 , Adresse2 ) 
Sammelt Ziffern aus einem Text 
lange Ganzzahl ohne Vorzeichen 
Stelle wird der Akkumulator mit der Basis des 
Zahlensy stems mu 1 1 ip I iz iert und die Ziffer (aus 
ASCII konvertiert) addiert. Der Text beginnt bei 
Adresse 1 +1. Adresse 2 ist die Adresse des ersten 
nicht konvertierbaren Zeichens, ud2 ist die Lange 
des Akkumu lators. 

(-) 
Gibt e 



in ei ne doppel t - 
udl : Fur jede 



Zei lenvorschub an den Fernsehschirm . 



(-) 

Definiert ein neues Wort mit Header und leerem 

Parameterfeld . Bei Ausfuhrung legt das neue Wort 

die Adresse sei nes Parameterfel des auf dem stack 

ab. 
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CURRENT 

D+ 
D< 

DECIMAL 
DEFINER 
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( - 15409) 

Eine Sy stemvariable, die das (aktuelle) Current- 

Worterbuch angibt. 

(d1 ,d2 - d1+d2) 

Addition der doppel tl angen Ganzzahlen. 

(d1 ,d2 - MERKER) 

Merker ist 1, wenn doppeltlange Ganzzahlen 

dl < d2 

(-) 

Basis des Zahlensy stems auf 10 setzen . 

Zusarnmen m i t DOES> zur Definition neuer Defini- 
tionsworter. Das sind Worter , die ihrerseits neue 
Worter definie ren konnen. 
Format : 
DEFINER Name 

Definitionsroutine 
DOES> 

Akt ionsrou t i ne 



DEFINITIONS 

DNEGATE 

CI DO 



CI DOES> 
DROP 

DUP 

EDIT Name 



"Name" ist der Name des neuen Definitionsworts. 
Bei der Ausfuhrung erzeugt es den Header eines 
neuen Worts und benutzt dessen Definitionsroutine 
zur Festlegung des Parameterfeldes. Wird dieses 
neue Wort ausgefiJhrt, komm t sein Parameterfeld 
auf den stack und der Aktionsteil lauft ab. 

(-> 

Das Context-Wdrterbuch wird auch Curren t-Wdrter- 
buch . 

<d - -d> 

Eine doppel tlange Ganzzahl wird negiert. 

(Grenzwert,Anfangswert - ) 

Beginnt eine DO - Schleife. Der Schleifenzahler 
wird auf den Anfangswert gesetzt. Grenzwert und 
Schleifenzahler werden im RE TURN -stack gespei chert 
(Vgl . LOOP und +LOOP ) 



Vgl . DEFINER 

(n - ) 



Eine Zahl wird aus dem 
( n - n , n ) 



TOS entfernt. 



Der TOS 



iert . 



ELSE 



I dupli 

(-) 

Listet das Wort "Name" auf dem Bildschirm fur 
die Aufbereitung (Anderung) an. Es werden maxi- 
mal 18 Zei I en angezeigt . Mi t ENTER konnen die 
nachsten Zeilen geholt werden. Am Ende wird mit 
ENTER die neue Version des Worts ins Worterbuch 
gestei 1 1 . 

Die MARKE (Cursor) kann wahrend des Edi tierens 
in den Zeilen bewegt werden. Mit DELETE LINE 
wird eine Zeile geloscht. 

(-) 

Wird mit IF und THEN verwendet. 
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EMIT 

EXECUTE 
EXIT 



F+ 

F- 
F. 



F/ 

FAST 

FIND 

FNEGATE 
FORGET Name 

FORTH 
HERE 

HOLD 
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(Zeichen - ) 

Schreibt ein Zeichen vom TOS auf den Bi I dschirm . 

( Komp i I ieradresse - ) 

Fijhrt das Wort mit der gegebenen Kompi I ieradresse 

aus . 

(-) 

Spring! sofort aus dem Wort heraus, in dem es 
definiert wird. Darf in DO . . . LOOP bezw. +L00P , 
und >R...R> nicht verwendet werden. 

(f1 ,f2 - f1*f2) 

Mul t ip I iz iert zwei Gleitkommazahlen und legt das 

Ergebnis auf dem stack ab. 

(fl ,f2 - fl+f2) 

Addiert zwei Glei tkommazahlen und legt die Summe 

auf den stack. 

(f1 ( f2 - f1-f2) 

Subtrahtert zwei G I ei tkommazah I en . 

(f - > 

Zeigt eine Glei tkoammazahl an. 

1 .0E-4<f < 1 .0E9 wird ohne Exponent und mit Dezi- 
malpunkt an der richtigen Stelle angezeigt. Zahlen 
aufterhalb dieses Bereichs werden in der Standard- 
form f 'En, mit 0-<f'<10 und -64^n<62 angezeigt. 
Die Eingabe ist beliebig, es werden jedoch nur 
6 signifikante Ziffern ubernommen , weitere Zahlen 
werden ignoriert. Gleitkommazahlen werden in drei 
Bytes als binar codierte Dezimalzahl fur die Man- 
t i ssen und Dez imalzahlen fur die Exponenten ge- 
speichert . 

(fl ,f2 - f1/f2) 

Dividiert zwei Gleitkommazahlen. 

"Schnelle" Arbeitsweise (Fast-Mode), lauft ohne 
Fehlerprufung (siehe SLOW). 

( - Kompilieradresse) 

Legt die Kompilieradresse des ersten Worts im Ein- 
gabebereich auf den stack, wenn es im Context- 
Worterbuch definiert ist, sonst 0. 

(f - -f) 

Negation einer Glei tkommazahl . 

(-) 

Loscht das Wort "Name" und alle danach definier- 

ten Worter aus dem Worterbuch. 

N*acht das Standard-Worterbuch FORTH zum Context- 

Wbrterbuch . 

( - Adresse) 

Legt die Adresse des ersten Bytes nach dem Wor- 
terbuch auf den stack. 

(Zeichen - ) 

Wi rd bei format ierter Ausgabe zur Ubernahme ei nes 

Zeichens in den Pad benutzt. 
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I ( - Schleifenzahler) 

Die oberste Zahl des RETURN-stack wird in den 
DATA-stack kopiert. Dies ist entweder der Schlei- 
fenzahler der innersten DO. . .LOOP Schleife, oder 
die zuletzt mit >R in den RETURN-stack ubertragene 
Zahl . 

I ' { - Grenz wert ) 

Kopiert die zwei te Zahl aus dem RETURN-stack 
in den DATA-stack. In einer Do-Schleife ist dies 
der Grenzwert der Schleife. 

CI IF (n - ) 

Wi rd in der Form 

IF.. .THEN 
oder 

IF.. .ELSE. ..THEN 
verwendet . 

In der ersten Form werden die Wbrter zwischen 

IF und THEN ausgefuhrt, wenn n ungleich ist, 
sonst werden sie ubersprungen. 

In der zweiten Form wird IF. ..ELSE ausgefuhrt 
und ELSE. ..THEN ubersprungen, wenn n ungleich 
0, andernfalls wird IF. ..ELSE ubersprungen und 
ELSE... THEN ausgefuhrt. 

IMMEDIATE (-) 

Das neueste Wort im Curren t-Wdrterbuch wird, auch 
im Komp i ler-Modus, sofort ausgefuhrt. 

IN ( Anschluftadresse - Datenbyte) 

Ubernimmt ein Datenbyte von einem l/O-AnschluB . 

INKEY ( - ASC I I Code) 

Fragt die Tastatur ab. Ubernimmt den ASC I I Code 
einer gedruckten Taste auf den stack, sonst 
eine . 

INT (f - n) 

Wandelt eine Glei tkommazah I mit Vorzeichen in 
eine einfache Ganzzahl urn. 

INVIS Unterdruckt den Kop iervorgang und OK auf dem 

Bildschirm (s. VIS) 

J ( - Schleifenzahler) 

Kopiert die dritte Eintragung im RETURN-stack 
auf den DATA-stack. Das ist entweder der Schlei- 
fenzahler der zwei t innersten DO-Schleife oder die 
Zahl, die durch das drittletzte >R im RETURN-stack 
abgelegt wurde. 

LEAVE (-) 

Beendet eine DO-Schleife beim nachsten LOOP oder 
+ LOOP, indem es den Schleifenzahler gleich dem 
Grenzwert setzt . 

LINE I nterpret iert den Eingabebereich als normale 

FORTH-Zeile. 

LIST Name (-) 

Listet das Wort "Name" auf dem Bildschirm an. 
Das Wort muft durch :, DEFINER oder COMPILER 
definiert sein. Es werden maximal 18 Zeilen ange- 
zeigt. Durch Betatigen einer beliebigen Taste wird 
wei tergeschal tet. Mit BREAK kann der Vorgang 
unterbrochen werden . 
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CI LITERAL 



LOAD Name 



CI LOOP 
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MAX 



MOD 



NEGATE 
NUMBER 



OR 
OUT 



OVER 
PAD 



PICK 



PLOT 



Kompiliert den TOS als Zeichenfolge in eine Wort- 
def ini tion . 



Sucht einen Datensatz "Name" auf der Kassette 
und ladt ihn in den Speicher im AnschluB an das 
bereits gespeicherte Worterbuch. Zeigt die Namen 
aller gefundenen Datensatze auf dem Bildschirm 
an. (siehe SAVE). 

(-) 

Wie +LOOP. Addiert jedoch immer 1 zum Schleifen- 

zah I er , 

(n1,n2 - max(n1,n2)) 

Ermittelt die groflere von zwei Zahlen. 

( n 1 , n2 - m i n ( n 1 , n2 ) ) 

Ermittelt die kleinere von zwei Zahlen. 

(n1,n2 - Rest aus n1/n2) 

Der Rest hat dasselbe Vorzeichen wie der Dividend 

nl . 



Nimmt eine Zahl aus dem Anfang des Eingabebe- 
reichs. Legt die Zahl und eine Adresse / auf 
den stack. Die Adresse ist die Komp i I ieradresse 
eines Li teral-Kompi lers. Mit EXECUTE wird die 
Zahl als Literal (Zeichenfolge) ins Worterbuch 
kompiliert. Fur Ganzzahlen ist dies 4102, fur Gleit- 
kommazahlen 4181. 

Ist keine gultige Zahl vorhanden, wird auf den 
stack gelegt . 

(n1 ,n2 - n1 OR n2) 

Bitweise Boolesche Operation. 

( Datenby te,Anschl ufJadresse - ) 

Ubertragt ein Datenbyte an eine l/O-Adresse. 

( n 1 , n2 - n 1 , n2 , n 1 ) 

f - 9985) 

Legt die Adresse des 254 Byte langen Arbeitsbe- 

reichs (Pad) auf dem stack ab. 

(nl - n2) 

Kopiert die Eintragung an Stelle n1 des stack an 
den TOS. nl selbst geht verloren . ERROR 7, wenn 
n1 < . 



,y mit dem Plott ing-Modus 



(x,y,n - ) 

Gibt ein Pixel an Stelle 

n aus . 

n = schwarz 

1 weifi 

2 keine Anderung 

3 Anderung 

Ist n>3, wird der Vierer-Rest gebildet und als 
Plott ing-Modus verwendet . 
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QUERY 



QUIT 



R> 



REDEFINE Name 



CI REPEAT 



RETYPE 



ROLL 



ROT 

CI RUNS> 
SAVE Name 



SIGN 

SLOW 

SPACE 

SPACES 

SWAP 
CI THEN 
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Loscht den E ingabebereich und nimmt Zeichen an, 
bis ENTER gedruckt wird. Der Bereich kann aufbe- 
reitet werden . Er ist auf 22 Zeilen begrenzt. 

Loscht den RETURN-stack und den E ingabebereich 
und ubergibt die Steuerung an die Tastatur. 

{ - Eintragung von RETURN-stack) 
Ubertragt die erste Eintragung aus dem RETURN- 
stack in den DATA-stack. 

(-> 

Ersetzt das Wort "Name" durch das neueste Wort 
irn Worterbuch. Uberarbeitet das Worterbuch um 
Anderungen zu beriJcksicht igen . 
Meist verwendet in der Form 
EDIT Name 
REDEFINE Name 

(-) 

Verwendet in der Folge BEG IN . . . WH I LE . . .REPEAT. 

Veranlaftt einen Rucksprung direkt hinter BEGIN. 

Gibt dem Benutzer die Moglichkeit, Daten einzuge- 
ben. Setzt die MARKE (Cursor) auf E (vgl. QUERY, 
das vorher den Eingabebereich loscht). 

(n -) 

Ubernimmt die Eintragung an Stelle n des stack, 
ubertragt sie an den TOS und verschiebt alle 
Zahlen nach hinten. n geht verloren. ERROR 7 
wenn n-^0. 

(n1,n2,n3 - n2,n3,n1) 

siehe COMPILER 

(-) 

Sichert das komplette Worterbuch aus dern RAM- 
Bereich in einen Datensatz "Name" auf Band. Er- 
zeugt ein Gerausch im eingebauten Lautsprecher . 
Siehe VERIFY und LOAD, ebenso BSAVE , BVERIFY 
und BLOAD. 

(n -) 

Ubernimmt ein Minuszeichen zur formatierten Aus- 

gabe in den Pad, wenn n negativ ist. 

(-> 

"Langsame" Arbeitsweise mit Fehlerpriif ung . Siehe 
FAST 

(-) 

Gibt einen Zwischenraum auf dem Bildschirm aus. 



Gibt n Z wi schenraume auf dem Bildschirm aus. 
( nl , n2 - n2 , nl ) 
verwendet mit IF 
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TYPE 



U/MOD 

U < 
UFLOAT 

CI UNTIL 
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(Adresse,n - ) 

Zeigt n Zeichen aus dem Speicher an, Beginn bei 

Adresse. 

(un1,un2 - doppeltlang Iun1*un2)) 

Mu I tip I iziert zwei einfachlange Zahlen zu einem 

doppel tlangen Produkt (ohne Vorzeichen). 

(un -) 

Gibt eine einfachlange Zahl ohne Vorzeichen mit 

nachfol gendem Zwischenraum auf dem Bildschirrn 

aus. 

(ud1,un2 - un3,un4) 

A I I e Rechenvorgange ohne Vorzeichen. Die doppelt- 
lange Zahl udl wird durch die einfachlange Zahl 
un2 dividiert. Das Ergebnis sind die einf achl angen 
Zc.hlen un3, Rest, und un4, Quotient. 

(unl ,un2 - MERKER) 

Merker ist 1 , wenn unl un2. 

(un - f) 

Wandelt einfachlange Zahl ohne Vorzeichen in 

Glei tkommazahl um . 

(n -) 

Verwendet in BEG IN . . .UNT IL. Springt zuruck, wenn 



VARIABLE Name 
VERIFY Name 

VIS 

VLIST 
VOCABULARY Name 

CI WHILE 

WORD Text 



XOR 

I [ 

] 



Speichert eine Variable "Name" mit dem Anfangs- 
wert n . 

(-> 

Vergleicht Wbrterbuch auf Band gegen Wbrterbuch 
im Speicher. Siehe SAVE. 

Ermoglicht Kopiervorgang und Anzeige von OK auf 
dem Bildschirrn. 

Listet Wbrterbuch auf dem Bildschirrn auf. 

(-> 

Definiert ein neues Wbrterbuch mit dem gegebenen 
Nc men . 



Verwendet in BEG IN .. .WH ILE .. .REPEAT. 1st n = 

verzweigt es hinter REPEAT. 

(Begrenzer - Adresse) 

Nimmt einen Text aus dem E ingabebereich bis zum 
Begrenzer und kopiert ihn in den Pad. Beginnt 
dort beim z we it en Byte. Stellt die Lange des Textes 

ohne Begrenzer in das erste Byte des Pad und 
legt die Adresse des ersten Bytes des Pad in den 
stack . 

Es werden maximal 253 Zeichen aus dem Eingabe- 
bereich genommen . Sind dort mehr Zeichen vorhan- 
den , hat das erste Byte des Pad den Wert 254. 
Fuhrende Begrenzer werden ignoriert . 

Bitweise Boolesche Operation. Exclusiv oder. 

<-) 

Eroff net I n terp ret er- Modus. 

<-) 

Erbff net Komp i ler-Modus. 



155 155 

ANHANG D 

SCHNELLER UBERBLICK FUR FORTH-KENNER 

Die FORTH-Sprache Ihres Jupiter ACE basiert auf der Version FORTH-79. 
Die grundsatzl ichen Unterschiede zur Basisversion sind: 

1. Ihr ACE braucht keinen speziellen Bildschirm. Ein- und Ausgabe 
wird mit Kassettenrecorder durchgef uhrt , dabei wird entweder ein 
Worterbuch in compi I ierter Form abgespeichert (Liste comp i I ierter 
Adressen), oder es werden unbearbei tete Bytes aus dem Speicher 
ubernommen. Siehe SAVE, VERIFY, LOAD, BSAVE , BVERIFY, BLOAD. 

2. Der ACE kann sel bstverstandi ich Worter decomp i I ieren - siehe LIST 
und EDIT. Er kann auch bereits compilierte Worter im Worterbuch 
andern und dabei alle Compi I ierungsadressen und MERKER anpassen 
- siehe REDEFINE und LOAD. 

3. Es gibt einige Erleichterungen fur die Gl ei tkommaari thmet i k - F+ , 
F-, F*, F/, F., FNEGATE, INT, UFLOAT. 

4. DEFINER. . .DOES> ersetzt :.. .CREATE .. .DOES> urn neue definierende 
Worter zu definieren; dazu gibt es ein korrespond ierendes Paar 
COMP I LER . . .RUNS> fur die Definition neuer comp i I ierender Worter. 

5. Es gibt eigene Worter: ASCII, AT, BEEP, CALL, CLS, FAST, IN, 
INKEY, INV IS, LINE, NUMBER, OUT, PLOT, RETYPE, SLOW, VIS. 

6. Folgende Worter sind im ACE FORTH nicht vorhanden: ', +!, 
-TRAILING, 79-STANDARD, >IN, ?, CMOVE , COMPILE, COUNT, DEPTH, 
EXPECT, FILL, KEY, MOVE, NOT, STATE, [Compile]. 

Viele dieser Worter sind im Buch als Beispiele definiert. 
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I 


35,37,62 


tt 


15,108 


# 


96 


#> 


96 


#5 


96 


1 


105 


( 


25 


) 


25 


* 


19,96 


V 


21 ,96 


''/MOD 


20,96 


+ 


17 


+ ! 


37 


+ LOOP 


49 


i 


102 


- 


19 




25 


-TRAILING 


85 


. 


17 


ii 


15 


.5 


127 


/ 


19,96 


/MOD 


19,96 




14 


; 


14, 103,120 


< 


41 ,42,90 


<# 


96 


< BUILDS 


104 


= 


42 


> 


42 


>R 


52 


•? 


37 


e 


8,16,144 


a 


144 


i 


59,144 


?DUP 


43 


@ 


35,37,62 


[ 


1 17 


] 


117 


+ 


31 ,43 


-* 


31 


t 


31 


* 


31 


X 


85 


CI 


145 





6 


0< 


41 ,42 


= 


42 


0> 


42 


1 


6 


1 + 


20 


1- 


20 


2! 


78 


2+ 


20 


2- 


20 


2? 


78 



REGISTER 

2CONSTANT 

2DROP 

20VER 

2PICK 

2ROLL 

2ROT 

2SWAP 

2VARIABLE 



ABORT 
ABS 

Absol utwerte 

Adresse 

AdreRbus 

Akkumu 1 ator 

Aktionstei I 

ALLOT 

AND 

arrays 

ASCI I 

ASC I I -Code 

ASSEMBLER 

AT 

Auf f ul I bereich 

B 



105 

78 

78 

78 

78 

78 

78 

105 



83,126,128,130 

20,98 

69 

36 

132 

98 

104 

103 

92 

101 ,107,1 10 

59,62,93 

59 

131 

63 

84 



BASE 




88,126 


BASIC 




41 ,65,82 


Basis 




54 


Bedingung 




40,92 


BEEP 




55 


BEGIN 




46 


Begrenzer 




84 


Bereiche 




107,1 10 


Bereichsvari 


able 


101 


Bi Idschirmi n 


halt 


74 


Binar codierte Dezimalzahl 


99 


Binarschreib 


wei se 


88 


Bi narsy stem 




88,89 


binary code 


decimal 


99 


Bit 




89 


BLOAD 




13,75 


Boolesche Operationen 


92 


Box 




36 


BSAVE 




75 


bugs 




30 


Byte 




36 


"Bytes" 




75 


C 






c 




11 


C! 




62 


c, 




102 


c@ 




62 


CALL 




129 


CAPS LOCK 




11 


Character 




62 


CLS 




11 ,63 
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CMOVE 

Codefeld 

Codefeld-Adresse 

COMPILER 

CONSTANT 

CONTEXT 

Context-Worterbuch 

CONVERT 

COS 

Cosinus 

COUNT 

CPU 

CR 

CREATE 

CURRENT 

Current-Worterbuch 

D 



112 




101, 


105 


119 




117, 


119 


35 




116, 


125 


114 




98 




80 




80 




85 




129 




15 




101 




116 


,125 


114 





D+ 


95 


D. 


97 


D.R. 


100 


D< 


96 


D0< 


98 


D0 = 


98 


D->PAD 


97 


DABS 


98 


DATA-stack 


52,123 


Datenbus 


132 


DECIMAL 


88 


DEFINER 


103,1 17 


DEFINITIONS 


114 


Def in i tionstei 1 


104 


DELETE 


11 ,31 


DELETE LINE 


11 


del imi ter 


84 


Dez imalpunkt 


77 


Dezimal system 


87 


Diagramm 


67,72 


Di agonal schri tt 


69 


"Diet.:" 


13,73,75 


DNEGATE 


96 


DO 


48 


DOES> 


103 


DOPPEL 


23 


Doppel 1 an gen -A r 


thmetik 95 


DRAW 


68 


DROP 


24 


Dual system 


87 


Dummy 


45 


DUP 


24 



Ertscheidungen 


39, 


40 


ERROR 


10, 


14, 


EXECUTE 


84, 


119 


EXIT 


51 




Exponent 


54 




Exponential schreibweise 


77 




Exponenten-Byte 


99 





6,142 



F* 

F+ 

F- 

F. 

F/ 

"f al sen" 

Fakul tat 

FAST 

Fehleranzeigen 

Fehlerprufungen 

FILL 

FIND 

flag 

Floating point 

FlufSdiagramm 

FNEGATE 

FORGET 

Format ierung 

FORTH 

Forth-79 



Ganzzahlarithmetik 

Glei tkommazahten 

GR 

GRAPHICS 

Graphic-Modus 

Grenzwert 

H 

Halbfettdruck 

Halbtonschritte 

halt 

Header 

HERE 

HEX 

Hex 

Hexadezimalzahlen 

Hi If sregi ster 

HOLD 



77 

19,77 

77 

19,77 

77 

41 

44 

131 

33,142,143 

131 

113 

83 

41 

77 

39 

77 

33 

96 

1 14 
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28 

77,99 

61 

11 

59 

50 



9 

55 

130 

101 

121 

91 

88 

87 

130 

96 



EAR 

EDIT 

EINGABE 

E ingabebereich 
E lemente 
ELSE 
EMIT 

Endwert 
ENTER 



12 

31 ,34 

82 

81 ,82 

110 

40 

59 

49 

8,31 



2 

I 

I ' 

IF 

IMMEDIATE 

IN 

I ndex 

INKEY 

INT 



49 

50 

40 

1 17 

132 

110 

81 

77 
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INTEGER 83 

integer 77 

Interpreter-Modus 117 

interrupt 130 

INVERSE VIDEO 11 ,59 

Inverse Video-Modus 59 

INVIS 67 

I/O Adressen 132 



N 

Name 

Namensfel d 

Namenslangenfeld 

NEGATE 

negativer Step 

negative Zahlen 

NUMBER 



101 

105 

105 

20 

49 

89 

83 



J 

J/N 



Kasset te 






Kilo B 


y te 






Kommentar 






Komp i 


er-Moc 


us 




Komp i 


er-Wbrter 




Kompi 


ieren 






Komp i 


ier-Ad 


resse 




Komp i 


iertes 


Wort 




Kompi 


ierzei t 


-Wirkun 


g 



Konstantenbereich 



Langenfeld 

Laufzei t-Wi rkung 

Lautstarkeeinstel lung 

LEAVE 

Lei twort 

LINE 

LIST 

Listing 

LITERAL 

LOAD 

Logari thmus 

LOOP 



50 

81 



12,73 

91 

25,33, 

117 

119 

119 

119 

120 

118 

1 12 



105 

118 

74 

51 

1 14, 

82 

30,34 

33,1 18 

118 

1 2 , 1 3 , 74 

57 

48 



124 



OK 

Operanden 

Operandenfel d 

OR 

OUT 

OVER 



PAD 

Pad 

Parameter-Feld 

Peripherie 

PICK 

Pixel 

PLOT 

PLOT-Status 

P lott ing-Modus 

Port 

Port-Adressen 

positive Zahlen 

Potenz 

PRIM 

PRIM? 

PRIMES 

Primzahl 

Probier-Di v isor 

Pruf wort 

Pseudozufal Iszahl 



8,13,14 

23,24 

120 

92 

132 

26 



84,97 

84 

101 

132 

26 

67 

67 

70 

67 

132 

135 

89 

37,54 

53 

53 

53 

53 

53 

42 

70 



M 



QUERY 

QUIT 



82 
82 



MARKE 


8,10,31 


Quot ient 


19 


Maschinencode 


129 






Maschinen-stack 


130 


R 




Masken 


94 




MAX 


20 


R 


52 


mehrd imensiona 1 e Bereiche 


112 


RAM 


36,123 


memory -mapped 


135 


RAND 


71 


MERKER 


41 


Raster 


60 


MIC 


12 


REDEFINE 


31 


MIN 


20 


Register 


130 


mnemotechn i sche Form 


129 


Reihenzahler 


50 


MOD 


19 


Reihenzahlschleife 


50 


MOVE 


112 


Rekursion 


44 






relative Adresse 


102 






REPEAT 


47 






Rest 


19 






Restart-Befehle 


130 






return adress 


52 






RETURN-stack 


52,123 



159 



159 



RETYPE 


82 


RND 


71 


ROLL 


27 


ROM 


36, 


ROT 


26 


Rucksprung-Adresse 


52 


RUNS> 


120 



23,129 



ZX81-Anschlusse 136 
79 
' 108 



S->D 

SAVE 

Schal tkreise 

Schleife 

Schieifenzahler 

Schutzstel lung 

SHIFT 

SIGN 

SIN 

Sincl 

Sinus 

SLICE 

SI icing 

SLOW 

Sofortwort 

SPACE 

SPACES 

Speichererweiterung 

Speicherpl atze 

Spitze des stack 

SQ 

stack 

stack underflow 

Stammwbrter 

Stapel 

step 

Steuerzeichen 

St r i ngs 

Stringvergleich 

Substrings 

SWAP 

SYMBOL SHIFT 

Systemvariable 



TAB 
TAN 

Tangens 

THEN 

Tondauer 

Tonhohe 

Ton I ange 

top of stack 

TOS 

TYPE 



74 

1 34 , 1 35 
47,48,50 
51 
100 
10 
,97 
79 



131 

105,117 

10,63 

63 

124 

36 

39 

24,34 

17 

22 

131 

17 

49 

59 

107 

108 

108 

24 

8 

69,88,123,124 



65 



U 

U* 96 

U. 89 

U/MOD 96 

U< 90 

UFLOAT 78 

Umwandlungsadresse 83 

Underflow '24 

Unterlauf 124 

UNTIL 47 



VARIABLE 35 

"Vater"-WSr-terbuch 114 

Verbindungsadresse 115 

VERIFY 73,74 

Verkettung 101 

Verkettungsfeld 105 

Video RAM 123 

VIS 67 

VLIST 9,14,1 

VOCABULARY 114 

Vorsatz 101 

W 

"wahr" 41 

WHILE 47 

WORD 83 

Wortbegrenzung 84 

Worterbuch-Def inition 114 

Worterbuch-Verkettung 116 



40 
55 
55 
55 
39 
39 
62,84 



X-Koordi nate 
XOR 



Y-Koordinate 



67 
92 



67 



15 



Z80-Maschinencode 129 

Zahlenbasis 88 

Zahlensy steme 87 

Zehnersystem 87 

Zeichenketten 107 

Zeichensatz 59,137 

Zufal Isgenerator 70 

Zweidimensionale Bereichell0 
Zweierkomp lement 95 

Z weierkomp lement-Methode 89 
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bridge und spiiter an der Universitat von Leeds, wo er zum Doktor 
der Mathematik promovierte. Danach wandte sich Vickers der Computer- 
Programmierung zu und hatte wesentlichen Anteil an der Entwicklung 
des Sinclair ZX81 und ZX Spectrum. 

Er ist auch Autor des meistverbreiteten Computer-Handbuchs fur 
den ZX81 und des Handbuchs fiir den ZX Spectrum . 

1982 griindete er zusammen mit Richard Altwasser die Firma Jupiter 
Cantab Ltd. und entwickelte den Jupiter ACE. 

Die Ubersetzer 

Friedrich Haas ist ein ' Oldtimer ' unter den Computer- und Programmier 
-Spezialisten. Schon als junger Ingenieur arbeitete er- in den sechzi- 
ger Jahren mit an der Entwicklung des ersten deutschen Grofirechners, 
des ER 56 der Firma Standard Elektrik Lorenz AC. 

Zusammen mit Wolfgang Diez entwickelte er bereits I960 das erste 
Fertigungsplanungs- und Steuerungsprogramm der Welt fiir eine mehr- 
stufige Parallelfertigung mit festen Auftragsgrbfien auf Mehrfunktions- 
maschinen. 

Beide sind, nach langj ahriger Praxis in Industrie und Handel, wah- 
rend der sie auch viele Projekte gemeinsam verwirklichten , heute 
als freie Unternehmensberater tatig. 



Die Programmiersprache FORTH ist eine Sprache, die sich im Bereich der 
Mikrocomputer immer mehr durchsetzt. FLir viele Anwendungen ist sie hervor- 
ragend geeignet. Mi t FORTH kann man, einmal damit vertraut, schnelle und 
effektive Programme bei hoher Speicherplatzausnutzung schreiben. 

Dieses Handbuch, welches ftir den Benutzer des Jupiter ACE geschrieben wurde 
und jedem Kaufer des ACE zur Verfugung gestellt wird, kann auch unabhangig 
davon eingesetzt werden, urn die hochinteressante Sprache FORTH in klarer 
und gut lesbarer Darstellung kennenzulernen. 
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